DANMARKS  STØRSTE  TASTE-IND  BLAD 


NR.  1  / 87  -  KR.  34.85 


Færdige  listninger  til: 

•  COMMODORE  64/1 28 

•  AMSTRAD  •  SPECTRUM 

•  VIC-20  •  ENTERPRISE 

•  ORIC  og 

•  ZX81/LAMBDA/ 
POWER  3000/ 
MARATHON! 


Danmarks  bedste 
listninger . . . 


KU 


- 


COMputer 
dribler  med 


COMputer  -  for  DIG  og  din  COMMODORE 


Kære  data-freak! 

Velkommen  til  TAST.  Et  helt  nyt  blad.  pakket  med  pro- 
grammer-programmer-programmer  fra  første  til  sidste 
side.  Alle  sammen  gennemprøvede  forfejl  og  lige  klar  til  at 
taste  ind  i  din  egen  'puter'. 

Vi  håber,  at  du  får  mange  timer  til  at  gå.  Her  i  den  kolde  tid 
er  der  jo  ikke  noget  som  at  lune  sig  op  ad  en  varm  data¬ 
skærm... 

Få  forøget  din  softwaresamling  med  TAST.  Og  lær  samti¬ 
dig  nye  fifs  om  programmering  eller  byg  selv  videre  på  de 
færdige  listninger.  TAST  er  dit  nye  taste-blad!  Danmarks 
tykkeste  af  sin  art. 

Rasmus  Kirkegård  Kristiansen. 
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Samtlige  aftrykte  listninger  er 
afprøvede  før  offentliggørelse. 
Forlaget  betaler  skattefrit  op 
til  1 000  kroner  for  godkendte 
læserprogrammer.  Forlaget 
har  ret  til  aftrykte,  godkendte 
programmer  i  bladet  og  må  of¬ 
fentliggøre  dem  på  andre  la¬ 
germedia.  Afsender  garanterer 
for  programmets  originalitet. 

Distribution:  DCA 


TAST  udgives  af  forlaget  "ny  elek¬ 
tronik".  der  også  udgiver  "SOFT". 
"Alt  om  Data",  "COMputer",  "Sven- 
ska  COMputer"  og  "ny  elektronik". 
Søsterforlaget  Audio  udgiver  end¬ 
videre  "high  fidelity"  og  HI-FI- 
årbogen. 

TAST  accepterer  listninger  til  alle 
markedets  mikroer,  blot  skal  de 
være  skrevet  i  det  til  maskinen 
mest  benyttede  sprog. 


cfil «0S' 


lid«?*®! 


Du  kender  sikkert  situationen:  Efter  mange 
lange  timer  foran  computeren  virker  din  ind¬ 
tastede  listning  stadig  ikke.  Hvad  du  så  gør? 
Læser  Bjørn  Christs  guide  til  selv  at  finde  fejl  på 
en  effektiv  måde. 


Du  holder  i  dette  øjeblik  det  aller¬ 
mest  omfattende  programblad  i 
hele  Norden.  Desværre  har  alting 
jo  en  skyggeside,  for  dette  blad  har 
nemlig  indhold  nok  til  ca.  3400 
minutter  eller  55  timers  koncen¬ 
treret  arbejde.  Vel  at  mærke  ti¬ 
mer,  hvor  du  virkelig  råslider  og 
sveder,  så  geofysikerne  advarer  os 
om  stigninger  i  vandstanden. 

Alle  programmer  her  i  "  TAST 
Special"  er  gennemtestede  inden 
trykningen  og  med  garanti  for.  at 
de  virker.  Alligevel  er  det  sjældent, 
et  indtastet  program  kører  per¬ 
fekt  første  gang,  du  run'er  det. 
Den  situation  kender  selv  garvede 
programmører  alt  til.  idet  meget 
af  de  professionelles  tid  går  med  at 
gennemteste  og  finde  fejl.  så  pro¬ 
grammet  gøres  bedre. 

Derfor:  Det  er  meget  normalt,  at 
derofte-OFTE  -  kommer  en  smut¬ 
ter  ind  i  programmet.  En  regulær 
indtastningsfejl. 

Hvad  du  lige  står  og  manqler  er  alt¬ 
så  en  vejledning  i  at  afbugge  dine 
fede  SOFT-programmer.  Og  her 
har  du  varen. 

Fejltyper- 

Antallet  af  forskellige  fejl.  der  kan 
opstå,  er  uendeligt  stort,  for  fejl 
har  en  evne  til  at  formere  sig.  På 
det  københavnske  universitets  da¬ 
taafdeling  har  de  lige  haft  en  kon¬ 
kurrence.  hvor  opgaven  var  at  lave 


et  program  så  lille  som  muligt, 
men  med  det  højeste  antal  fejl  i. 
Den  suveræne  vinder  blev  et  hold. 
der  fik  14  forskellige  fejludskrif¬ 
ter.  Programmet  følger  her: 

IF 

Altså,  en  fejl  bliver  let  og  elegant  til 
mange.  Derfor  kan  en  enkel  lille 
indtastningsfejl.  f.eks.  i  en  "DATA"- 
sætning,  give  de  mest  ustyrlige 
oplysninger. 

Som  en  grov  opdeling  skelner  jeg 
mellem  tre  fejl-typer.  Indtast¬ 
ningsfejl.  syntaksfejl  og  semantik¬ 
fejl.  Hermed  en  forklaring  af  de  be¬ 
greber.  der  virkelig  forpester  en 
programmørs  tilværelse. 

Lad  os  tage  tyren  ved  hornene  og 
starte  med  indtastningsfejl. 


Indtastningen 

Indtastningen  er  den  proces  at 
bringe  et  program  på  hvad  man 
kalder  "maskinlæsbar"  form 
(datafangst).  Indtastning  er  en 
helt  mekanisk  proces,  dvs.  skru  op 
for  anlægget  og  ned  for  omdrej¬ 
ningshastigheden  i  kuplen.  Lad  for 
guds  skyld  være  med  at  begynde 
at  småændre  i  programmet,  mens 
du  taster  ind.  Hvis  du  gør  det.  kan 
du  blive  helt  rundt  på  gulvet,  og 
ude  af  stand  til  at  færdiggøre  dit 
program.  Det  bliver  simpelt  hen 
for  svært  at  overskue  konsekvan- 
seme  af  de  ændringer,  da  de  ofte 


1 1 1  tru  nøi  ei,  di  dele  af  programmet 
også  senere  hen  påvirkes  af  dem. 
Vent  med  ændringerne  til  bag¬ 
efter.  Hvis  du  derimod  vil  sparetid, 
og  ikke  gider  indtaste  REM-sæt- 
ningeme.  så  lad  gå.  De  er  kun  be¬ 
mærkninger  og  har  INGEN  ind¬ 
virkning  på  programmets  kørsel. 
Hvis  du  kan.  så  følg  nedenstående 
"algoritme"  når  du  taster  et  pro¬ 
gram  ind.  Lidt  kedelig  er  den.  men 
når  man  er  færdig,  er  den  sin  vægt 
værd  i  sved. 

1 .  Skriv  een  linje  ad  gangen. 

2.  Check  om  du  har  skrevet  den 
korrekt  ind. 

3.  Næste  linje. 

4.  Efter  ca.  50  linjer.  SAVE  pro¬ 
grammet! 

Når  du  endelig  er  blevet  færdig, 
har  du  sikkert  allerede  undgået  en 
masse  fejl  ved  lige  at  checke  en  en¬ 
kelt  gang.  Men  der  skal  nok  have 
indsneget  sig  nogle  barske  fejl.  Ba¬ 
re  rolig.  Dem  tager  vi  fat  på  nu. 

Syntaksfejl 

Når  du  "RUN"er  dit  program,  og 
det  ikke  er  PAC -man.  men  noget 
mærkeligt  engelsk,  der  dukker  op 
på  skærmen,  har  programmet 
højst  sandsynligt  en  syntaksfejl. 
Syntaksfejl  opstår,  når  dit  pro¬ 
gram  ikke  følger  syntaksen,  (eller 
grammatikken  som  det  egentlig 
er),  for  den  BASIC-dialekt  du  har  i 
computeren.  Da  Basic'en  er  for¬ 
skellig  fra  mikro  til  mikro.  kan  jeg 
ikke  give  andet  end  en  generel 
hjælp.  De  specifikke  detaljer  må 
du  selv  slå  op  i  instruktionsbogen. 
Nogle  Basic-versioner.  især  på  de 
mindre  mikroer,  giver  kun  een  syn¬ 
taksfejl  for  hver  kørsel.  Dette  be¬ 
tyder  desværre,  at  dit  program 
måske  har  bunker  af  fejl.  og  der¬ 
med  vil  det  ikke  fungere,  bare  fordi 
du  retter  en  enkelt. 

En  sur  følge  af  dette  er  overdreven 
tidsforbrug  ved  din  datamat.  Den 
bedste  metode,  (mener  jeg),  til¬ 


syntaksfejl-retning  er  sådan: 

1 .  Kør  program. 

2.  Find  ud  af  hvilke/n  fejl  fortolke¬ 
ren  melder.  Som  regel  vil  der  bli¬ 
ve  udskrevet  en  lille  tekst  og  en 
kode.  og  denne  kode  er  at  finde  i 
et  appendix  bag  i  din  bruger¬ 
manual. 

3.  Ret  den  fejl  du  fandt,  og  evt.  lig¬ 
nende  fejl  andre  steder  i  pro¬ 
grammet. 

4.  SAVE  det  rettede  program  ofte. 
Altid  inden  du  kører  det.  og  når 
du  forlader  datamaten. 

Det  kan  være  indlysende,  hvilke 
fejl  der  er  tale  om  (fortolkeren 
fortæller  dig  nogle  gange  direkte, 
hvad  der  er  galt).  Hvis  det  sker  ret¬ 
ter  du  blot  fejlen,  og  kører  pro¬ 
grammet  igen.  Husk  endelig  at 
rette  flere  steder  i  programmet, 
hvis  den  meldte  fejl  er  en  gennem¬ 
gående  fejl. 

De  fleste  fortolkeres  fejlmeldin¬ 
ger  er  desværre  tit  helt  hen  i  vej¬ 
ret.  Og  hvis  man  får  en  ikke  umid¬ 
delbart  gennemskuelig  fejlmedde¬ 
lelse.  så  slap  af  -  det  er  ikke  dig  den 
er  gal  med. 

Kan  man  ikke  forstå  fejlen,  så  må 
man  enten  snyde  fortolkeren  eller 
søge  hjælp. 

Fortolker-snyd  er  nemt  nok.  Det. 
•  du  vil  ha',  er  de  efterfølgende 
fejlmeddelelser,  så  du  kan  se  om 
du  sidder  med  en  eller  flere  mærk¬ 
værdigheder. 

Det  nemmeste  er  at  gøre  den  fejl- 
behæftede  del  af  programmet  til 
en  REM-sætning.  Eftersom  over¬ 
sætteren  ikke  bekymrer  sig  om 
REM's.  vil  den  overspringe  den  fejl- 
behæftede  programdel. 

Hjælp  til  nødsituationer  fås  i  ma¬ 
nualer.  og  den  ultimative  nød¬ 
situation  vender  jeg  tilbage  til. 

Semantikfejl 

Ja-ja.  jeg  ved  godt.  det  er  kedeligt, 
men  det  kan  spare  dig  for  tid  -  så 
nu  åbner  vi  op  for  flere  fejl. 

Når  programmet  erfri  for  syntaks¬ 
fejl.  er  du  i  stand  til  at  foretage  en 
kørsel.  At  kunne  foretage  en  kør- 
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sel.  er  desværre  ikke  ensbetyden¬ 
de  med.  at  programmet  er  fejlfrit. 
Et  program  består  næsten  altid  af 
små  sammenkædede  dele.  proce¬ 
durer.  funktioner,  løkker  etc.  etc. 
Det  der  normalt  kan  ske.  er  at 
nogle  af  de  mange  yderområder, 
nicher  eller  bittesmå  grænseflader 
ikke  vil  virke.  F.eks.  bane  nr.  1 64  i 
Pacman  eller  udskriften  afen  kur¬ 
ve  over  en  hyperbel  i  rummet.  • 
Det  er  i  disse  ydertilfælde  at  pro¬ 
grammet.  på  trods  af  testningen, 
kan  gå  ned. 

Typiske  semantik-fejl  er  FOR- 
NEXT  løkker,  hvor  tællevariablen 
ikke  kan  ende  på  det.  den  skal. 
Eks.:  FOR  1-1  TO  5  STEP.  15 
NEXTI 

Variablen  vil  komme  til  4.9  og  der¬ 
efter  springe  til  5.05  uden  at  be¬ 
mærke  at  den  skulle  stoppe  ved  5. 
Fejlen  kan  også  være  mere  udspe¬ 
kuleret: 

Eks.:  FOR  1-1  TO  5  STEP  1/3 
NEXTI 

Variablen  vil  tælle  trediedele  (tror 
man),  men  i  virkeligheden  vil  usik¬ 
kerheden  på  udregningen  af  1  /3, 
gøre  at  resultatet  afviger  fra  1  /3. 


Dette  skyldes  den  begrænsede  la¬ 
gerplads  i  alle  maskiner.  Hele  det¬ 
te  emne  om  fejlafrunding,  er  en  af 
datalogiens  hovedproblemer,  ma¬ 
tematikere  bryder  deres  hoveder 
for  at  finde  en  løsning,  men  indtil 
nu  -  nej. 

Andre  fejl  kan  være  uendelige 
loops,  (det  ulyksaglige  GOTO),  fejl 
i  sætninger  med  IF.  THEN.  ELSE. 
AND.  OR  osv. 

Hvad  der  er  aller-vigtigst  ved  aflus¬ 
ningen  af  denne  slags  fejl.  er  at  du 
ved  hvad  der  sker  på  de  forskellige 
stadier  i  dit  program.  Dette  er  des¬ 
værre  umådeligt  svært,  når  man 
sidder  med  en  andens  program.  Af 
og  til  vil  der  opstå  fejlsituationer, 
som  virkelig  er  rå.  Du  ved  ikke. 
hvad  du  skal  gøre. 

Det  kan  da  være  nødvendigt  at 
indsætte  betingede  skrivesætnin¬ 
ger  på  centrale  steder  i  program¬ 
met.  Du  kan  på  den  måde  skaffe 
dig  indsigt  i  programmets  forløb, 
og  du  kan  udskrive  f.eks.  centrale 
variabler  undervejs  i  programmet. 
Hvis  vi  tager  vores  program  fra  før: 
FOR  1-1  TO  5  STEP  0.15 
NEXTI 


Programmet  er  en  del  af  et  større 
program,  og  vi  kan  ikke  umiddel¬ 
bart  se  hvad.  der  er  galt.  Derfor 
sætter  vi  simpelt  hen  print-sæt- 
ninger  ind  over  det  hele  til  at  ud¬ 
skrive  variabler. 

FOR  1-1  TO  5  STEP  0.1 5 

PRINT  I 

NEXTI 

Under  kørsel  af  programmet,  vil  vi 
nu  se  variablen  I  blive  større  end  5. 
og  vi  kan  da  se  fejlen. 

Hvis  program-udførelsen  er  for 
hurtig,  supplerer  du  med  PAUSE 
leli.  WAIT  sætninger. 


Aflusning  ikke  afdansning! 

At  afluse  programmer  er  ikke 
sjovt.  For  det  første  er  det  lang¬ 
somt  og  for  det  andet  er  det  ikke 
sikkert  at  man  nogen  sinde  finder 
fejlen.  Skulle  du  en  dag  befinde  dig 
i  sidste  situation,  må  du  gribe  til 
sidste  nødløsning.  Ringe  til  pro- 
grameksperteme.  Vi  sidder  ved  te¬ 
lefonerne  hver  torsdag  mellem  14 
og  16.  Nummeret  er  01  91  2833. 
Du  kan  også  henvende  dig  skrift¬ 
ligt.  og  vi  skal  af  hele  vort  hjerte 
prøve  at  hjælpe  dig.  Husk  bare. 
programmerne  i  bladet  ALTID  vir¬ 
ker  i  det  store  og  hele.  så  hvis  du  la¬ 
ver  en  indtastningsfejl.  kan  vi  kun 
prøve  at  hjælpe. 
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GAMES 


Commodore 


Hyperormen 


Du  er  en  lang  orm.  Skal  kravle 
rundt  i  en  stor  have.  Spise  æbler. 
Og  samtidig  undgå  at  banke  ind  i 
murene.  Alletiders  ambition? 
Well.  så  er  det  blot  at  få  smidt  pro¬ 
grammet  her  ind  i  din  64'er  eller 
Cl  28  i  64’er  mode.  Du  styrer  med 
komma  og  punktum.  Og  husk:  Bli¬ 
ver  du  forbløffet  over  den  fede  gra¬ 
fik.  så  tak  vores  allesammens... 

Peter  Zacchi 
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10  REI1  *♦«**■.*****■*»•■♦**■•***»*** 

IB  REM  *  HVPER  ORM  JR.  * 

14  REn  *****************. •**.**. 

16  REtl  *  P  ZACCHI  * 

10  REM  •***«*•***•***-•***••**•* 

BØ  REM  *  UERSION  B.Ø  CSM  64  * 

BB  REM  ***•+*•*••***  +  ■•+**•++••*• 

24  REM 

100  POKE  53281,0: POKE  53200,0 
:  D I M  PO*i CBBØØ)  :  DIM  BDC24 ) 

:60T0  3000 

10B  P0-1B1:DI<13— ' 40:DK2)-1:DK3>-40 
: DI C43--1 :DR=B:HA-0:C=5: HO-0 
: 6=54272 

104  POKE  53265, PEEKCS3265) AND  230 


106  1=55296 : K“ 1024 
108  POKE  S+24 , 15: POKE  S+5,176 
: POKE  S+ 1,30: POKE  S+12,15 
:  POKE  S  +  1 1,16:  POKE  S+13,240 
210  PR I MT ” C CLR , SORT , CRSR  DF.SPACEIB, 
GUL )HYPER  ORM  JR. 

112  FOR  A-l  TO  23 : PR  I NT” C  BRUN) AAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" 

:  NEXT 

114  PRINT”AAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAACCRSR  OP)” 

116  PRINT”CHOME, CRSR  NED)” 

:FOR  A-l  TO  20 : PR I  NT ” ( BRUN , 

CRSR  HØJRE, SPACE37)”: NEXT 
110  PR  I  NT "(HOME, GUL, CRSR  NED23 , 
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CRSR  HØJRE33LEUEL”L 
: PRINT"(CRSR  DP.CRSR  HØJRE153SCOR 
E  ”SC 

120  PR  I NT ” C  CRSR  DP.CRSR  HØJRE273APPL 
ES”AP 

122  FOR  B-0  TO  1 : FOR  ET-BDCLE3TO  BDC 
LE+1 3STEP  BDCLE+23  :  POKE  K+ET.29 
: NEXT : LE-LE+3 : NEXT 

124  POKE  532B5, PEEKCS326530R  16:YT-1 
.•GOTO  51B 

126  POKE  S+4 ,123: POKE  S+4, 129 
: FOR  CQ-1  TO  13:GET  AS 
: I F  AS-” "THEN  132 

129  IF  A£-" . ”THEN  DR-DR+1 

: I F  DR-S  THEN  DR-l:GOTO  132 

130  IF  A$- " , ”THEN  DR-DR-1 
: IF  DR-0  THEN  OR-4 

132  PO-PO+DI (DR)  :HO-HO+l :P0*CH03-P0 
:C-C-1 : HA-HA-CC<03 
134  P-PEEKCK+P03 : IF  P<>32  THEN  GOTO 
500 

136  POKE  K+PO , 27 : POKE  T+P0.7 
:  POKE  K+POV.CHO-13  ,20 
:  POKE  T+PO*iCHQ-l  1 , 5 
13B  POKE  K+PO^iC HA1 , 32 
140  NEXT: GOTO  126 
500  IF  P-15  THEN  2000 
502  IF  P<  >  30  THEN  600 
504  POKE  K+P0,32:SC-SC+S:C-HP:AP-AP-1 
506  POKE  S+l  1 ,  17 :  FOR  A-l  TO  20 
: POKE  S  +  B , RNDCØ  3*80  +  10 : NEXT 
: POKE  S-8,0:P0KE  S+11,16 
50B  POKE  S+4 , 12B 
510  PR  I NT ” CHQNE , GUL , CRSR  NED23, 

CRSR  HØJRES  3 LEUEL”L 

: PR I NT” C CRSR  OP, CRSR  HØJRE153SCOR 

E”SC 

512  PRINT”CCRSR  OP, CRSR  HØJRE273APPL 
ES"AP 

514  IF  AP-0  THEN  PRINT”CHOnE, 

CRSR  NED, CRSR  HØJRE16 , ORANGE  3 A 
C GUL  3 AC SORT , SPACE , GUL  3 AC  QRANGE3 A” 

: GOTO  136 

516  AX“  INTCRNDC03 *363+1 
:  AY“  I  NT (  RNDC03*193+2 
51B  IF  PEEKCK+AX+AY*403<>32  THEN  516 
520  POKE  K+AX+AY*40 , 30 

: POKE  T+AX+AY*40 , 2 : IF  YT-1  THEN  Y 
T-0 : GOTO  126 
522  GOTO  136 

600  POKE  S+5 , 10 : POKE  S+l, 20 
: POKE  S+4 , 128 : POKE  S+4, 128 
:  POKE  K  +  PO*;CHO-13  ,  31 
602  FOR  A-l  TO  10: POKE  53270, 

(  PEEK  C  53270 1  AND  248 1  +  I  NT  C  RND  C  0  3  *6 
3+1 : NEXT 

604  POKE  53270, C PEEKC532703AND  2483+0 
606  FOR  A-HA  TO  H0-2:P0KE  K  +  PO?iCA3,32 
: NEXT: FOR  B-l  TO  2000: NEXT 
60B  PR  I NT GUL , CLR, CRSR  NED 10 , 

CRSR  HØJRE83AK !  AK!  DIN  ORH  ER  DØ 
D!  ” 

610  PR INT” CGRØN , CRSR  NED2, 

CRSR  HØJRE113DU  FIK”SC”POINTS” 

612  POKE  S+l 1 , 16 : POKE  S+11,17 
: FOR  A-50  TO  0  STEP-2 
:  FOR  E-A  TO  0  STEP-2: POKE  S+8,B 
614  NEXT: NEXT: FOR  A-l  TO  3000: NEXT 
616  SC-Ø: AP-B: LE-Ø: L-l : HP-5 
: PR  I NT” C CLR, BRUN, CRSR  NED4 , 

CRSR  HØJRE103AAAAAÅAAÅAAAAAAAAA” 


619  PR I  NT” C CRSR  HØJRE103 ACGRAA3 , 

RUS  DFF, 5PACE23HYPER  ORH  JR.CBRUN, 
SPACE3A” 

620  PRINT "(CRSR  HØJREIØ 3 AAAAAAAAAAAAA 
AAAAA” 

622  PRINT” C GRAA3 , CRSR  NED3 , 

CRSR  HØJRE12 3 AF  PER  2ACCH I ” 

624  PRINT”CCRSR  NED, CRSR  HØJRE93  CC31 
995  SOFT  SPECIAL" 

626  PRINT”CCRSR  NED4 , CRSR  HØJRE123TR 
YK  nELLEHRUri" 

623  GET  A$:IF  AS- ”  "THEN  102 
630  GOTO  628 

2000  AP-B: POKE  S+11,16 

:POKE  K+PO+40 , 28 : POKE  T+PO+40,5 
2002  FOR  A-HA  TO  HO-l:POKE  K+POJiCAl, 

32 : FOR  B-l  TO  40 : NEXT : CO-CO+1 
2004  IF  INTCCO/143+14-CO  THEN  POKE  S 
+4 , 128 : POKE  S+4, 129 
2006  NEXT: FOR  A-l  TO  500: NEXT 
200B  L-L+ 1 : PDKE  S+11,17: POKE  S+4 , 12B 
:FOR  A-0  TO  10: FOR  B-0  TO  30  STEP 
2 

2010  POKE  S+8 , B : NEXT : POKE  646, 

RNDCØ  3*4  +  1 

2012  SC-SC+5:  PRINT”CHOf1E,  CRSR  NED23 , 

CRSR  HØJRE153SCQRE"SC 
2014  NEXT: AP-8: POKE  S+11,16 
:FOR  A-l  TO  2000: NEXT 
: I F  LE-24  THEN  LE-0:HP-HP+5 
2016  GOTO  102 

3000  PRINT”CCLR, CRSR  NED12 , 

CRSR  HØJRE1 1 , GUL3UENT  CA.10  SEK . ” 
3002  POKE  52, 48: POKE  56,48 

:POKE  56334, PEEK C 56334 3 AND  254 
: POKE  1 , PEEK C  1 3 AND  251 
3004  FOR  1-0  TO  Sil: POKE  1+12288, 

PEEK C  I +53248  3 : NEXT : POKE  1, 

PEEKC130R  4 

3006  POKE  56334, PEEKC56334 3CR  1 

: POKE  53272, CPEEKC532723AND  2403+ 

12 

3008  FOR  A-12504  TO  12543: READ  DA 
:PQKE  A, DA: NEXT 

3010  FOR  A-0  TO  23: READ  BDCA3 : NEXT 
3012  DATA  195,195,36,126,219,255,195, 
126,0,124, 198, 190,190, 190,254, 124 
3014  DATA  251,251,251,0,223,223,223, 
0,60, 126 , 243 , 251 , 255 , 255 , 126 , 60 
3016  DATA  24,24,255,24,24,24,24,24 
3018  DATA  0,0,1,0,0,1,448,468,1,448, 
468,1,449,467,1,218,740,40 
3020  DATA  481,496,1,459,477,1 
3022  GOTO  616 

Kan  du  lave 
shorties? 

Indimellem  mangler  vi  små  korte  rutiner 
til  markedets  mest  populære  microer. 
Send  dine  20,  30  eller  40  linier  til '  TAST! " 
-  det  gi'r  gode  kroner  skattefrit! 
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Commodore  64 

Diskette-kartotek 


Er  du  træt  af  at  svømme  rundt  i  dit 
værelse  p.g.a.  alle  dine  disketter 
osv.  Hvad  med  at  få  bragt  lidt  or¬ 
den  i  rodet  med  dette  smarte  pro¬ 
gram??? 

Programmet  sætter  dine  disket¬ 
ter  i  alfabetisk  rækkefølge.  Det  er 
selvforklarende.  (Men  det  er 
sandt!),  praktisk  og  kan  blive 
uundværligt. 

Device-nummeret  er  i  variablen 
"DN',  der  kan  ændres  efter  prin¬ 
tertype.  Variablen  står  i  linje  80 
(4). 

Christian  Banzhaf 


M\4'° 


/0  / 
/o  *L 


0  GOTO  50 1 "  DI SKETTE INDHOLDSFORTEGNE 
I.SE" 

5©  i 

55  REM  TRYKKERKODE 
60  : 

65  BR=14  iREM  BRED  SKRIFT 
?ø  NM=15  :REM  NORMAL  SKRIFT 
75  RE=13  :REM  VOGNRETUR 
8ø  DN-4  iREM  DEVICENUMMER 
9ø  s 

løø  DIM  PN*<350>:  REM  MAXIMALT  350 
PROGRAMMER 

llø  PRINT  CHR$< 142) iREM  STORE  BOGSTA 
VER 

12ø  PRINT  CHR$<8)=  REM  SKIFTENØGLE 
IKKE  I  BRUG 

130  POKE  53280,0:  rem  KANTFARVE 

140  POKE  53281,0=  REM  BAGGRUNDSFAR 

VE 

15ø  POKE  646,14:  REM  SKRIFTFARVE 

160  A=1 
17ø  : 

I8ø  REM  OPBYGNING  AF  BILLEDSK 
rtRM  ****** 

185  : 

19ø  2=0 : S=0 : T$=" <CLR)  , - 


2øø  GOSUB  4øøø 
210  T*-" I " 

22ø  FOR  B=1  TO  21 
23ø  2=B:S-ø: GOSUB  4øøø 
240  S-39 :  GOS>  >B  4øøø 
25ø  NEXT 

260  2=22  =  S=ø:T$="  1 - 


27ø  GOSUB  4øøø 

280  2=2  =  S=5 s T$= " D I SKETTE I NDHOLDSFORT 
EGNELSE" 

29ø  GOSUB  4øøø 

300  2=4:S=2:T*="  LAVET  <01986  AF  CH 
RI STI AN  BAN7HAF < L . BLAA ) " 

31ø  GOSUB  4øøø 

320  2=18:S=0:T$="  I - 

- 1 « 

330  GOSUB  4øøø 
34ø  2=6: GOSUB  4øøø 
35ø  : 

355  REM  OPLYSNINGER  OM  UDGIVER****** 
*** 

36ø  : 

37ø  2=8  =  S=5  =  T£="NAVN i " : GOSUB  4000 
380  E*="T":S=lø:L=2ø: GOSUB  5000 
390  N$=AU* 

400  2=1  ø:S=5:T$="B0P(lL:": GOSUB  4øøø 
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41ø  S=13 : GOSUB  5øøø 
420  Wf=RUf 

430  2=12:S=5:Tf="RDRESSE:  "  : GOSUB  4øøø 
44ø  8-13: GOSUB  5 øøø 
45ø  Sf=RUf 

460  2=14 : 8=5 :T$=" DATO:": GOSUB  4øøø 
47ø  S-ll: GOSUB  50øø 
480  Df=RUf 

482  REM  DISKOPTAGELSE  ****#*****#**#* 

483  : 

490  E$= " 2 " : Z= 1 6 : S=5 : T$= " D I SK  HUMMER : " 
5øø  GOSUB  4øøø 

519  S=17=L=2: GOSUB  5000 

520  IF  LEN<AUf )=1  THEN  fiU$="0»+aut 
530  NRf=RUf 

54ø  2-2ø:8-l !T$-"<HVID/SPACE2>INDS 
RT  DISK  OG  TRVK  Pfi  'Fl'  KL.BLflfl)" 
550  GOSUB  4øøø 

56ø  GET  fif :  IF  fifOCHRf<  133) THEN  56ø 
57ø  T$=" 

II 

58ø  GOSUB  4øøø 
59ø  GOSUB  løøø 
6øø  IF  M-l  THEN  685 
61ø  S=6 : Tf = " <  H V I D / SPRCE3 > EM  DI SK  MER 
E  <J/N)?<L,  BL/W" 

62ø  GOSUB  4øøø 

630  GET  2$ : IF  2f="N" THEM  7øø 
64ø  IF  2fO"J"THEN  638 
650  2=16=8=17: Tf="  GOSUB  4000 

66ø  Z«2ø:S=l :T*=" 

II 

67ø  GOSUB  4øøø 
680  2=16= GOTO  490 

685  2-20 : S-8 : TC- " < GUL ) PROGRRML ISTE  F 
ULD  ! ! " 

69ø  GOSUB  4øøø 

695  FOR  B=1  TO  5øøø:NEXT 

7øø  : 

710  REM  SORTERING  OG  UDSKRIVNING  *** 
720  : 

730  2-20 :S«6:T*»" (HVID) T 

4ND  FOR  PRINTER  <L.  ELARV 

74ø  GOSUB  4øøø 
75ø  FOR  B=1  TO  fi-1 
76ø  FOR  C=B+1  TO  fi 

77ø  IF  LEFTf <PNf <B) / 16)>LEFT$(PNf (C) / 
16) THEN  Q$=PN$<C> :PNf<C)=PN*<B) 

: PNf <B)=Qf 
78ø  NEXT  C/B 
79ø  OPEN  DN / 4 : CMD  DN 
795  PRINTttDN/ CHRf <BR); TRB<6) J 

" D I SKETTE  I NDHOLDSFORTEGNELSE " 

805  PRINT#BN 

8 1 ø  PR I NTttDN / TflB  <  6  > ; " FRA : " ; Hf 
815  PRINT#DN/TRB<lø)/Wf 
82ø  PRINT#BN/TAB(lø>;Sf 
825  PRINT#DN/TRB<6> ;  "UDFÆRDIGET  DEN 
: " ;  Df 

830  PR I HT#BN / CHRf  < NN ) ; CHRf <  RE) ; 

CHRf <RE> 

835  PRINTttDN/ TRB(2ø) ; "  TITEL 
Pfi  DISK" 

S4ø  PRINT#DN/TAB(2ø)V - 


945  Vf=" " 

85ø  FOR  B=l  TO  R 

855  IF  LEFTf (PNf <B> > 1 )=Vf THEN  870 
860  Vf=LEFTf (PNf <B)/ 1) 

865  PRIHT#BN,TflB<2ø>;Vf; 


87ø  PRINTttDH/  TRB<23) / PNf (B) : NEXT 
885  CLOSE  DN : PR I NT " <  CLR ) " : END 
999  GOTO  999 

løøø  REM  DIRECTORY  INDLØSES 


lølø  : 
lø2ø  OPEN 


■fø" 


1/8/0/ 
lø3ø  GET#l/fl$,B* 
lø4ø  GETttl/flf/Bf 
lø5ø  GETttl / fif  /  Bf 
lø6ø  C=ø : Ff=" " 

1070  GET#1  /  Bf:  IF  STOø  THEN  2øøø 
løøø  IF  Bf  OCHRf < 34 ) THEN  107ø 
1090  GET#1  /  Bf :  (F  Bf OCHRf  <34>THFN  Ff 
=Ff+Bf : GOTO  J  090 
liøø  Cf="" 

lllø  Ff=Ff +Cf : GET#1 / Cf 
:  IF  CfO" "THEN  lllø 
1128  IF  RIGHTf (F$/2)=“2R"THEN  1990 
113ø  Ff=LEFTf <F$, 20) 

1140  GOSUB  3øøø 

115ø  IF  fl=349  THEN  14=  1 : CLOSE#  1 : RETURN 
1160  W=ø 
1660  : 

1990  IF  ST-0  THEM  1040 
2øøø  CLOSE  1 
2ølø  RETURN 

3øøø  REM  PROGRAM  DOPPELT  ?  ####*#*## 
**** 

3ølø  : 

3020  C=1 

3ø3ø  IF  LEFTf ( PNf < C ) / 20 ) =F$THEN  3080 
3040  C=C+1 

3050  IF  C<=fl  THEM  3030 
3060  fl=fl+l 

3070  PNf.(  R  )  =F f +CHRf  <  32  )  +NRf :  RETURN 
3080  PNf  <  C  )  -  PNf  <  C  >  +CHR$  <  47  )  +HRf 
: RETURN 

4øøø  REM  POSITIONIERTES  'PRINT'  *«** 
REM  CURSORLINIE 


REM  CURSORSPRLTE 
REM  CURSOR  SÆTTES 
REM  TEKST  UDGIVE 


4ølø  POKE  214/2 
4ø2ø  POKE  211/S 
4ø3ø  SVS  58640 
4ø4ø  PRINT  Tf 
4ø5ø  RETURN 

5øøø  REM  MASKE  *****>(!***#*****#•#**## 
mm 
5010  : 

5ø2ø  RUf=" " : LØ=1 
5030  Tf =CHRf (185): GOSUB  4000 
5ø4ø  GET  fif :  IF  Lø=L+l  AND  fif  OCHRf  (1 
3)  AND  fif OCHRf  <  20  >  THEN  5ø4ø 
5050  IF  fif  OCHRf  (13)  THEN  5080 
5ø6ø  IF  RUf=" "THEN  5048 
5ø7ø  Tf="  "= GOSUB  4000 : RETURN 
5080  IF  AfOCHR$<20)THEH  5150 
IF  Lø=l  THEN  5040 
S=S-1 : T f =CHRf (185) +CHRf  <  32 ) 

5118  GOSUB  4080 

5128  RUf =LEFT f ( RUf / LEN  <  RUf ) - 1 ) 

5136  Lø=Lø-l 
5140  GOTO  5040 

IF  Ef="2‘‘THEN  52øø 
IF(Af<" .  "OR  flf>"2"  )RND  fif  OCHRf 
(32) THEN  5040 
5170  RUf =RUf +flf : Tf =flf 
5180  GOSUB  4øøø 
5190  S=S+1 :Lø=Lø+l :GOTO  5030 
52øø  IF  fif>— "ø"RHB  flf<="9"0R  flf="'"T 
HEN  5170 
5218  GOTO  5ø4ø 


5098 

51øø 


5150 

516ø 
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GAMES 


Orit 

Kalaha 


k(T 


.  # 


'O  ^ 


æ 


x  '  ■  - 


Kan  du  ikke  lide  at  tabe.  bør  du  ik¬ 
ke  indtaste  dette  strategi-  spil. 
Det  vil  nemlig  banke  dig  både  gul  , 
og  grøn  på  ganske  få  minutter.  Ka- ' 
laha-programmet  kan  spille  mod  j 
sig  selv.  det  kan  spille  mod  dig  og 
det  kan  bruges  som  "high-tech" 
spilleplade  for  to  personer. 

Erik  Christensen 


10  CLS :  PRINT!  PRINT*  “  ;CHR$(4  )  ;CHItS  l  27  )  ;CHR$  (74 )  ;SPC{ 1 2) ;  "KALAHA*  ;CHR5  ( i  ) 

20  POKE619, 10  SPRINT: PRINT  i PRINTSPCt 2 ) ; "Erik  Christensen 
25  PRINT :  Elti  NTSPC(  6  ) ;  "For  ORIC-1  og  ORIC  ATHOS" 

10  DIM  O(IJ), 0(13), Pli, 50), S(l>,N«(ll.N(l),LE(l),t$(l),y*(l) 

40  PlS-CHRS(140)*CHRS(lJl):P2S-CHRS(27|.CHRS(2J)*CltRS(27)*CHR$(0) 

50  P3$"CHRS ( 10)+CIIR$ ( 1 45 ) »CHRS (134): PRINT : PRINT 
60  CS— 

70  POR  1-0  TO  1 

80  PRINT  I*l|-,  spiller  (Computer  Person)  7  ■ i iOETSIS iPRINTSl $ 

90  IP  81S--C-THEN  NS  ( I  )-’ORIC-**MID5  (STRS  ( 1*1 ) ,  2 ) .  S ( I  )-l 

100  IP  S1$-"P"1'HEN  S(I)-0:INPUT"NAVN  (max.  6  bogstaver)  "jNS(I) 

110  IPLEN ( N$ ( X ) )  >8  THEN 100 
120  IFS1S<>"C"ANDS1S<>"P"THEN80 
130  PRINT: NEXT  I 

140  FOR  J-0  TO  1  i  LE ( J ) "LEN ( NS ( J ) ) : NEXT 
150  L7-LE(0) :IPL7<LE(1 )  THEN  L7-LE( 1 ) 

160  COTO230 

170  PRINT"0NSKES  NYT  SPIL  <J>  <N>  ?  "; :GETZ6S :PRINTZ6$ »PRINT 

180  IP  Z6S**"N"  THEN  END 
190  IF  Z6$<>"J"  THEN170 

200  IP  Z6S-"J"  THEN  PRINT"0NSKES  NYE  SPILLERE  <J>  <N>  ?  " ; :GLTZ7$ : PRINTZ7S 

210  IF  Z7S“"J"  THEN70 
220  IF  Z7SO-N"  THEN200 

230  CLS:B-0:Z$(0)-"":2$(l)«"":YS(0)-"":YS(l)-“" 

240  FOR  1-0  TO  1 2  s U( I )-3 :NEXT 
250  C-0 : B ( 1 3 ) “0 : B ( 6 ) "0 
260  GOSUD630 

270  H-l3:Z3-42:Al-17:S-0:Zl-7:Z2-0:COTO290 
280  H-6:Z3-49:A1-26:S-1 :Zl-0:Z2-7 :GOTO290 
290  PLOTLE(SX15,Al , “FLYTTER" :IP  S(S)-0  THENGOSUB49C 
300  IF  S(S)-1  THENGOSUB840:PLOTLE(S)*23,Al,MlS:GOSUD550 
310  IP  E-0  THEN410 

320  IF  MOH  THENYS  { S )-"  ":GOTO380 

330  YS(S)-"" 

340  IP  S(S)-0  THENGOSUB6  30 :  PLOTLE  ( 0  )+l 5 , Al ,  "FLYTTER  IGEN- .-GOSUB4  90 
350  IF  S(S)“1  THENPLOTLE ( S ) +25 ( Al , “OG“ i GOSUB8 4 0 
360  IF  S(S)-1  THENPLOTLE l S ) t28 , Al , Ml§ :GOSUB550 
370  Y$ (S )■“  “ 

380  GOSUB630 

390  IF  E-0  THEN420 

400  IF  S-0  THEN280ELSE270 

410  GOSUB630 

420  PLOT2, 15, "SPILLET  FORBI" 

430  D-B( 6 ) — D ( 13) 

440  IF  D<0  THEN  PLOT2, 16,N§(0)+"  VINDER  MED  "♦MIDS(STR$(-DJ ,2)+"  POINT" 

450  IP  D<0  THENF( 0, N( 0 ) )-0 :N( 1 )-N( 1 )+l :GOTOl70 

460  IP  D-0  THENPLOT2 , 16 ,  "UAFGJORT"  :N(0)“N(0)  +  1:N(1J=N(1)  +  1  :GO*fOl70 
470  PLOT2 , 16,  NS  ( 1  )♦"  VINDER  MED  ".+MIDS  (STRS  (D) ,  2 ) ♦"  POINT" 

480  F(1,N(1) )-0:N(0)-N(0)+l : GOTO 170 

490  GETMS : PLOTLE ( S ) +23 , Al ,MS+"  " : PLOTl 5 , 15 , " 

500  M-VAL(M$ 1  s IP  M<7  THENIF  M>0  THENM-M-1 :GOTO520 
510  PLOT 15,15," PR0V  IGEN" IGOTO490 
520  IF  H-l 3  THEN  M-M+7 


n 

l'r  ‘I 


530  IF  B (M )-0  THEN510 
540  GOSUB550« RETURN 
550  K-M :GOSUD780 
560  E-OtIF  K>6  THEN  K-K-7 

570  K9-K»liZ$(S)-ZS(S)*Y$(S)»MID$(STR$(K9),2) 

580  C-C»l s IP  C<12  THEN  P( 0 , N ( 0 ) )-P ( 0 , N ( 0 ) ) *6*K : P( 1 , N ( l ) ) -F ( 0 , N ( 0 ) 1 
590  FOR  1-0  TO  5:IF  B(I)<>0  THENI-8 
600  NEXT 

610  FOR  II-7  TO  12 : IF  B(XI)<>0  AND  I>7  THENE-1 : I 1-1 3 
620  NEXT: RETURN 

6  30  REPEAT  SPRINT:  UNTILPEEK  ( 6 1 6  )  >  24  :  REPP.AT :  PR INTCHRS  (11);:  UNTILPEEK  (616X25 
640  FORI-1T014 : PRINT : NEXT: FOR  I-1T02 : PRINTCHRS ( 1 1 ) ; : NEXT 
650  H0S-LEFTS (CS , 9-LE( 0 ) ) :H1$-LEPTS (CS , 9-LE( 1 ) ) 

660  K5-68-LEN ( Z$ ( 0 ) ) : PLOT2 ,0,NS(0)*H0S*ZS(0) *LEFTS (CS  » K5 ) 

670  K5-68-LEN( ZS ( 1 ) ) : PLOT2 ,2,N$(1)+Hl$+Z$(l ) +LEFTS (CS ,K5) 

680  PLOT2, 17,"1.  apiller:  "♦NS(0) :PLOTl 1 , 18, "6  54321" 

690  AS-CHRS (10)*"H"+P1$: PRINTCHRS ( 4 ) : FOR  1-12  TO  7  STEP  -1 :GOSUB760 :NEXT 
700  AS-AS*"  "*P2S : PLOT5 , 19 , AS : PLOT5 , 20 , AS : AS-CHRS (10)*P1S:I-1 3 :GOSUB760 
710  AS-AS*"  "*P2S*"  "*P3S : 1-6 :GOSUB760 : AS-AS*"  "*P2S 

720  PLOTl. 21, AS: PLOTl, 22, AS :AS-P3S: FOR  1-0  TO  5:  GOSUB760:  NEXT 
730  AS-AS*"  "*CHRS ( 27 )*CHRS ( 23 )*CHRS ( 0 )*"H" : PLOT6 , 23 , AS : PLOT6 , 24 , AS 
740  PLOTl 1 , 25 , ” 1  2345  6" :PLOT2 , 26 , "2 .  spiller:  "*NS(1> 

750  PRINTCHRS (4) : RETURN 

760  AS-AS*"  " : IF  B(I)<10  THEN  AS-AS*"  " 

770  AS-AS*MIDS ( STRS (B( I ) ) , 2 ) i  RETURN 
780  P-B(M) :B(M)-0 

790  FOR  P-P  TO  1  STEP  -1:M-M*1:IF  M>13  THEN  M-M-14 
800  B(M)-B(M)*1 : NEXT 

810  IF  B(M)-1  THENIF  M<>6  THENIF  M<>13  THENIF  B(12-M)<>0  THEN830 
820  RETURN 

830  B(H)-B(H)*B(12-M)*l:B(M)-0:B(12-M)-0: RETURN 
840  D— 99  :  FOR  1-0  TO  1  3  :G(  I ) -B(  I )  :  NEXT 
850  FOR  J-Zl  TO  Z1*5:IF  B(J)-0  THEN1030 
860  Q-0 :M-J :GOSUB780 

870  FOR  I-Z2  TO  Z2*5:IF  B(I)-0  THEN940 
880  L-B (I)*I:R-0:RR-0 
890  IF  H-6  THEN  IF  L>12  THEN  R-1:RR-1 
900  IF  H-l 3  THEN  IF  L>5  THEN  R-1:RR«1 
910  IF  L>1 3  THENL-L-14 :GOTO910 

920  IF  B(L)-0  THEN  IF  L<>6  THEN  IF  L<>13  THEN  R-B { 1 2-L) *R*RR* 1 
930  IF  R>Q  THEN  Q-R 
940  NEXT 

950  IF  H-l 3  THEN  Q-B( 1 3 ) -B( 6 ) -Q 
960  IF  H-6  THEN  Q-B ( 6 ) -B ( 1 3 ) -Q 
970  IF  C>11  THEN1010 
980  K-J : IF  K>6  THEN  K-K-7 

990  POR  1-0  TO  N( S ) -1 : IP  F(S, N(S ) ) *6+K-INT( F(S,I)/6“(10-C)+.l )  THEN  Q-Q-2 
1000  NEXT 

1010  FOR  1-0  TO  13:B(I)-G(I): NEXT 
1020  IF  Q>-D  THEN  A-J:D-Q 
1030  NEXT  J 

1040  M-A :M1S-CHRS ( Z3+M) 

1050  RETURN 
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GFlMES 


42ø  I FP-7922T! IENF-7937  GQTQ44Q 
430  I FP=7938THENP=7923 
44ø  IFfi“øTHEHC=37 : R- i  G0TQ460 
43ø  f|=ø 

4 tø  F'OKEN .■  32 ;  POKER.-  C 
49ø  P0KE36874 , 9  / 

5øø  F0RI--ØT02  > 

5 1 0  M~M  <  I  >  V=V  <  I  >  ■  k'=W <  I  ;■  ■  G-G  <  I )  < 
52ø  I FRND C 1 > : . i TMEN530  L 

539  R”  I  NT  <  RNB  <  i  >  *4  >  yr 

54ø  IFR=ØTHENV~--22 :  G0T05S0  | 

53ø  1  FR~  1  Tf CHV-22  G0TQ589  å 

599  irR-2THENV"2. :  G0TQ5SØ  \  V 

579  JFR=3THEH'v-~ i 

58ø  POKEM  .■  G :  PQKEM+ 30729 .  2  * 

585  I  FM-=733øTf CNM-7386 "  G0T06S0  |  | 

59ø  I  FM~'7922THEMM=?937  :  GQT0660  i 
595  ! FM=7938THENM=  7923  G0T0660  L^J 


*  v\k 


6ø8 

F=PEEK<M> 

6.1.0 

TP(CQ 

•33  >  RHT'  <  F-C42  >  Tf-!! 

620 

M=M  V* 

rrr-t-c  -■■-■-rur! 

•  ......  — '  •.  •  uu.  ■  s 

625 

T =22 

63ø 

irr,c,-,:; 

XM-T>  C23THEHV: 

633 

T  rPFFl- 

i  !  •• — t - 

: n+ t  > 33T*  ch  v 

640 

i  '  I  1 

•» .  V 

66ø 

I  FN>øTHE!  iPOKEM  <-30720 

370  POKEM  i'30720 ,  1 4  2  :  POKEM  -  42 
6Sø  M  <  I  >  "M '  V  I  >  --V  W  >:  I  >  :  c  <  T  > kø 

690  !  !E;:t  I  r  7-:  I  46THEN30Q 
709  FORD -i TO i 300 : NCNT • G0T024Q 
Søø  I  FF=42TfO IPQKEP ,  4 2 '  G0T0370 
S 1 0  POKER*  30720 , 2  POKER 37 
028  FOR  I  '  T  rM  <  J '«  =PT!-!ENB=  t 
338  me::t 

34  0  I F  <  G  •"  B  •'  =35  OR  C  G  •:  r:  >  86  )  THEK'J-  T* 1 
358  C  B ) =32  M C E  > = 7929  U < E  >  =8 :  S=C  >  50 

360  rr0RE--254 rn i 28STEP  !  P0KE26374 , E  I CXTE ' 00SUE960 '  G0T04 38 

378  FORE-- 1 23T0254  P0KE36874 ,  E  •  HEXTE 

890  POKER*  30720 , 2 :  POKER.  34  :  P0KE3S374 ,  ø 

895  FORS* i f 9509 ' NEXT 

9 !  ø  FOR  I  ---ØTQ2 '  POKEM  <  I  > 4  30720  .■  2 

920  I FG  ( I  >  >36THEMP0KEM  < I  >  .•  32 ;  G0T0940 

939  POKEM  <  I  > ..  C  <  I  > 

948  ND  !T  •’  0=0  ■•  l  GOSUBOGø :  IFQ=ØTHEM9G0 

959  G  O  TO  23'3 

960  PR  I  HT  "  ;  S 

978  PR  I  NT  ”  g ' • Q  •  RETURN 

gøg  r FS>HTHEHH=S 

99ø  PR  I  NT "  -SKSMiSS’slSG  f!  M  E  O  V  E  R" 

1  øøø  PR  I  NT  "  ROR  I H?  <  V.  'N  >  " 

1  ø  1. 0  !<=PEEK  •:  1 97  >  :  I  FK=64THEN  i  ø  1  ø 
1  ø2ø  I FK-- 1 1 THEN230 
1 03ø  PR  I  NT "  72"  ■  P0KE36S69 249 :  ENI« 

2000  PR I NT "n" 

2øiø  PR I NT "3! i !!!!!?!  t  !!!!!!!  " 

2920  PRINT"  ! ÉH*#$H*$H*#3!  SiJ#######3! " 

2030  PR  I  NT  "  !  MS !  MS !  !  !S»3!  MS !  i  !  MS  f  5383 !  SSaSCORE"" ; 

2ø4ø  PR  I  NT  "  3 !  W- 3 !  MS !  !  !  MS '  W-3 !  !  !  •!# 3 !  J9$  3 !  " 
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2030 
2860 
2870 
2088 
2090 
2180 
2 1 1 9 
2128 
2130 
2148 
215ø 
2160 
2179 
21øø 
213ø 
2200 
2210 
2220 
2220 
2900 
30 1 9 


3830 


3050 

2068 


PRINT"  33  0" 

PRINTMS!38#3!ffl»S!SB#3!  !  !  I  !  SjJtfS !  J3#3  !  SilttS 1  ” 

PRINT"  !  33###3!  ™tf##S!  W#3!  1#M2!  " 

PRINT"  !  !  !  !j2#S !  !  !  3J#5!  $#3!  !  !  5>J#3!  !  !  " 

pr  i ht  "  i  mz \k .  si  i  m  hi  -  •• 

PR  I  NT  "3!  !  '.mz'."®  3!  !  M  !®  3!®»3!  !  !  SØSSC0RE5"  J 
PR  I  HT "  Vij!  if  3|  |  ;:jj  #  " 

PRINT "3!  I  !  SB3 ! k  3!  !  !  M®  3!®tt3!  !  !  " 

PRINT"  !®KS!®  3!r#3!" 

PRINT"  !  !  :  WfS !  ®tf  3 ’  !  I  !  !  li&3!  SJtfS!  !  !  " 

PRINT"  !  ®M###M3!  ®#######3!  " 

PRINT”  !®$S!®#3!  !  !i3»3!®&3!  !  !®&2!aS3!  " 

PRINT"  !  #######2!  " 

PRINT"  !  !  !®tf3!®»3!  !  !  !  !®tf3!®#3!  !  !«2  <33!  3" 

PR  I  NT  "  3 !  ®###3 !  W  tf  #3 !  33M  #3 !  KM  tf  3 1  " 

PRINT"  !S3tf3!  !  i  !  !  Ktf!3 '  liKtS !  !  !  !  !32#3!  " 

PRINT"  !  " 

PRINT"  '!!!!*!!  t  !!!  1  !!  1  ! 53" 

PR  INT"  2S  SI ' ' ;  H '  RETURN 

P ØR  I  •=  1 T 036  ■  RERDA :  P0KE7423+ 1 ,  fl :  HENT :  RETURN 

DAT Aø ,  ø ,  ø ..  ø ,  ø ,  9 ,  ø ,  9 ..  255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

TATRS6  .-  36  .  1 29 , 66 , 66 ,  i  29 , 36 , 66 , 0 ..  0 , 8 , 8 8  .•  8  .•  8 , 9 

DATA9 , 24 ..  36 ,  36 , 36 ,  36 , 24 , 0 . 24 ,  60 , 1 26 , 1 26 , 1 26 , 1 26 , 60 , 24 

TOTPØ ,  36  .-  1  ©2 , 1 82 ..  1 02 , 1 26  .•  50 , 24 24 , 60 , 1 26 , 1 02 , 1 92 , 1 82  .•  36 ,  ø 

DAT A24 , 68 , 1 20 , 96 , 96 , 1 20 , 6ø ,  24 , 24 , 60  .■  3ø ,  6  .•  6 ,  30 , 60 , 24 

DRTR56 , 1 24 , 2 1 4 , 254 , 254 , 254 , 254 , 1 7ø , 56 , 1 24 , 2 1 4 , 254 , 2 1 4, 17ø, 254 , 1 70 


Super 

text 


Programmet  her  syner  ikke  af  me- 

get.  Mendetgørresultatet.Nårdu  / 

har  indtastet  en  tekst,  vil  maski¬ 
nen  printe  den  ud  på  skærmen, 
forstørret  og  i  flotte  farver.  Tallet, 
der  bestemmer  forstørrelsesfak- 
toren,  er  variablen  S  i  linie  1 0. 

Søren  Bon  trup 

JO  S=7.5 

20  BORDER  O: INK  0,0: INK  1,15,21:  INK  2,21,6: INK  3,6,15 
30  MODE  1 :  LOCATE  1,1:PEN  1:  INPUT  "Intast  tekst  der  skal  -f  orstorres"  ;  aS:  CLS:  PRINT 
a* : PEN  1 

40  FOR  g=0  TO  LEN(a*>*16  STEP  1 
50  FOR  i =400  TO  384  STEP  -1 
60  -far=l  +  INT<RND*3> 

70  c=TEST  (g ,  -f  ) 

80  IF  c  THEN  100 

90  PLOT  10+g*S,  350-S*  <400— f>  ,-far:  PLOT  10+g*S, 350-S* <400-f  >, tar : PLOT  10+g*S+2,350 
-S*  (400— f)  ,-far:  PLOT  10+g*S+2,  350-S*  <400— f  )  ,-far 
100  NEXT  F, G 
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Amstrad 


Maze  Craze 


Programmet  MAZE  GRAZE  er  en 
lidt  speciel  udgave  af  det 
velkendte  Pac-Manspil.  beregnet 
for  AMSTRAD  computeren. 

Når  du  kører  programmet  vil  der 
blive  vist  de  nødvendige 
instruktioner,  og  for  at  starte 
spillet,  skal  du  trykke  fire  knappen 
i  bund.  Du  skal  med 
morskabspinden  styre  en  mand 
rundt  på  skærmen,  som  først  skal 
spise  4  nøgler  i  det  yderste  rum  og 
derefter  spise  nøglerne  i  det  mid¬ 
terste  rum.  Efter  dette  kan  du 
komme  ind  til  skattekisterne, 
hvorefrer  du  skal  bringe  dem  ned 
til  det  hoved  der  kommer  frem  på 
skærmen.  Når  begge  skattekister¬ 
ne  er  bragt  frem.  vil  der  komme  en 
bil  frem  som  du  skal  flygte  i.  Nu  vil 
spillet  så  starte  forfra  igen,  blot, 
går  det  noger  hurtigere. 

Henrik  Rønnest 


i 


*  N 

h 


Still 


10  7 
20  7 
30  7 
40  7 
SO  7 
60  7 
70  7 

SO  sv=0 : 
30  FOR  G 
1 00  7  *## 


MFlZE  -  CRAZE 
HENRIK  RONNEST 


X=33 s  INK  O,  O ! BORDER  O:  INK  1,0:  INK  2,  O:  INK  3,0:M0DE  HY-200 
=1  TO  3J0RIGIN  X+l,Y:X=X+20 
M 
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110  DRfiW  1,  130:DRAW  15, 130:DRflW  60,  70:DRflW  105, 130:DRflW  120, 130:DRftW  120, 1: DRfiW 
105, lsDRflW  105, 105:DRRW  60, 45:DRflW  15,105:DRAW  15, l:DRAW  1,1 
120  ’  ***  fl  **+ 

130  ORIGIN  135+X, Y 

140- DRfiW  1,115  sDRAW  15, 130:DRAW  90, 130:DRAW  105, 115:DRAW  105,  1:  DRfiW  90,  UDRftW  90 
, 50 : DRfiW  15, 50 ! DRAM  15, lsDRAW  1,1 

150  ORI  GIN  14S+X,  Y  +65  •  X=X+20  :  DRfiW  1,45:  DRfiW  15, 55:DRflW  65,55:DRfiW  75, 46:DRAW  75, 
1  :DRAW  1,  1 
160  ' ***  z  *** 

170  ORIGIN  250+X,  Y: X=X+20: DRfiW  120, l:DRAW  120,15:DRAW  15,15:DRfiW  25,20:DRfiW  120, 
130  :  DRfiW  1,130:  DRfiW  1.  115«  DRfiW  95,  115:DRP)W  1,15«DRAW  1,1 
ISO  ’***  E  #** 

190  QRIGIIM  3S5+X,  Y :  DRfiW  l,130:DRftW  120,  130:DRfiW  120,  120:DRflW  10,  120:DRfiW  10,70:D 
RflW  100, 70 ! DRfiW  100, 60 : DRfiW  10, 60:DRfiW  10, 10:DRftW  120, 10:DRflW  120, 1: DRfiW  1.1 
200  X=X-56:Y=Y-4: PLOT  1, l.QiNEXT: INK  1,11: INK  2,25: INK  3,6 

210  LQCflTE  12, 16: PEN  l:PRINT"C  -  R  -  ft  -  Z  -  E" : LOCfiTE  12, 17: PRINT  STRING* < 17, 

"  ) :  LOCfiTE  14,  19:PEN  2:PRINT  CHR* (164) 5"  H.  R.  1985.  “  :  LOCfiTE  12,  22:  PRINT"Press  fir 
e  to  start" 

220  FOR  0=1  TO  40 

230  LOCfiTE  O, 1 : PRINT  CHR* ( 143) : LOCfiTE  G,24:PRINT  GHR*( 143) : NEXT 
240  FOR  G=1  TO  24 

250  LOCfiTE  i, G : PR I  NT  CHR* ( 143) : LOCfiTE  40,G:PRINT  CHR*( 143) :NEXT 

260  FOR  G= 1  TO  3S:L0CfiTE  G, 1: PRINT  CHR*( 143) ! : PEN  2:L0CATE  G+l,i:PRINT  CHR*(231) 

:  PEN  3:  IF  J0YC0)  =  16  THEN  310  ELSE  NEXT 

270  FC1  G=2  TO  24:L0CflTE  40, G-i: PRINT  CHR* C 143) : LOCfiTE  40,G:PEN  2:PRINT  CHR*C231 
) : PEN  3: IF  J0Y(0)=16  THEN  310  ELSE  NEXT 

280  FOR  G=39  TO  1  STEP-i:PEN  2: LOCfiTE  G,24:PRINT  CHR*< 231 ) : PEN  3: LOCfiTE  G+1,24:P 
RINT  CHR* C 143) : IF  JQY(0)  =  16  THEN  310  ELSE  NEXT 

230  FOR  G=23  TO  1  STEP-1 :LOCfiTE  l.G+l: PRINT  CHR* ( 143) : LOCfiTE  l.G:P£N  2: PRINT  CHR 
* (231) : PEN  3 : IF  J0Y(0)=16  THEN  310  ELSE  NEXT 
300  GOTO  260 

310  MODE  O:  INK  2,0:  INK  1,25,24 
320  Y=195: X=45S: PLOT  180,439 
330  FOR  G= 1  TO  32 

340  PLOT  640-X , 381 -Y, 1 : DRfiW  640-X,Y:DRflW  X, Y :DRflW  X,381-Y:DRfiW  640-X.381-Y 
350  X=X+2. 2 : Y=Y+ 1 . 8 

360  PLOT  640-CX-6) , 381-CY-6) , 2: DRfiW  640- (X-6) , (Y-6) : DRfiW  C X-6) , ( Y-6) : DRfiW  (X-6), 
3S1-CY-6) : DRfiW  640- (X-6) , 3B1-CY-6) 

370  NEXT 

380  SPEED  INK  3, 3:F0R  s=15  TO  8  STEP  -l:FOR  9=1  TO  6: INK  1,  s, g: PEN  1 : LOCfiTE  7,13 
:PRINT“Get  ready " :SOUND  1, 9*4, 3, s, 5, 1,  3: NEXT :NEXT 
390  ’  grafik 

400  RESTORE: LIV=3 : sc=0 : CLS: SYMBOL  fiFTER  65:F0R  9=1  TO  12 : REfiD  d 1 , d2, d3, d4, d5, d6, 
d7, d8 : SYMBOL  9+64, dl, d2, d3, d4, d5, d6,  d7, d8: NEXT 
410  DATA  60,60,24,126,189,189,36,102 
420  DATA  3,7,60,92,154,60,38,99 
430  DATA  192,224,60,58,89,188,100,198 
440  DATA  3,7,15,31,63,127,255,255 
450  DATA  192,224,240,248,252,254,255,255 
460  DATA  255,255,127,63,31,15,7,3 
470  DfiTA  255,255,254,252,248.240,224,192 
480  DfiTA  255, 255, 255, 255, 255, 255, 255, 255 
430  DATA  60,66,129,255,153,165,153,255 
500  DfiTA  60,126,219,255,255,255,255,170 
510  DATA  3,5,7,38,124,248,112,32 
520  l  ev=i  :  DflTft  31,49,31,255,129,129,255,66 
530  MODE  O : I NK  1,0: PEN  1 
540  PR  I  NT 11 DHKHHHHHHHHHHHHKHHHE" 

550  PR  I  NT "H  H" 

560  PR  I  NT  "H  DE  DE  DHHE  DE  DE  H" 

570  PRINT" H  FG  FG  FHHG  FG  FG  H" 

580  PRINT-H  H“ 

590  PRINT"H  DHHHHHHHHHHHHHHE  H" 

600  PRINT" H  H  H  H" 

610  PRINT "H  H  DHHHH  HHHHE  H  H" 

620  PRINT"H  H  FHHHHHHHHHHG  H  H" 

630  PR I  NT "H  H  H  H" 

640  PR I NT "H  H  DHHHHHHHHHHE  H  H“ 

650  PRINT" H  H  H  HH  H" 

660  PR I NT "H  H  FHHHHHHHHHHG  H  K" 

670  PR INT "H  H  H  H" 


CTiils 


i 


d  Co^o^fc^odo-e 
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680  PR I NT "K  H  DHHHHHHHHHHE  H  H" 

690  PR I  NT "H  H  FHHHH  HHHHG  H  H" 

700  PRINT“H  H  H  H" 

710  PR  I  NT “H  FHHHHHHHHHHHHHHG  H" 

720  PR  I  NT “H  H" 

730  PR  I NT "H  DE  DE  DHHE  DE  DE  H" 

740  PR I  NT "H  FG  FG  FHHG  FG  FG  H" 

750  PR  I  NT "H  H" 

760  PRINT " FHHHHHHHHHHHHHHHHHHG " 

770  INK  1, 10 

780  INK  2i  3>  23 : SPEED  INK  10,10 

790  PEN  2 : LOCATE  6, 12: PRINT" I ": LOCATE  15,  12: PRINT" I" : INK  3,25,22:PEN  3:L0CATE  2, 
2:PRINT"K“ : LOCATE  19, 2: PRINT"K" : LOCATE  2, 22: PRINT"K" : LOCATE  19, 22: PRINT"K" : INK  4 
,17,  15: PEN  4 : LOCATE  4,  7 :PR1NT"K“ : LOCATE  17, 7 : PRINT"K" : LOCATE  4, 17 : PRINT"K" : LuCAT 
E  17, 17 :PRINT"K 

300  qq=0:  inm=0 :  y  y=0 :  pp=0  :  i  i  =0  :  AN=0 :  kK=0 :  INK  5,24,25:PEN  5:L0CATE  1,24:  PRINT  "scor 
e“ : LOCATE  1, 25: PRlNT"hi 9h  " :HI : LOCATE  16, 24: PRINT" I  i  ve" iLOCATE  17,25:PRINT  liv:c 
=56774: X=10: Y=19: INK  6, 14:PEN  6: a*=" A" : sv=sv+0. 5 

310  ux=10*uy=2: up=55413: INK  8,24.  12:PEN  S: LDCATE  ux,  uy : PRINT" J“ : PEN  6 

820  IF  JOY  CO) =1  OR  J0Y(0)=5  OR  J0Y(0)=9  THEN  y=y-l : c=c-80 : a*="A" : IF  PEEKCc)=192 

DR  PEEK(c)=12S  THEN  c=c+SO:y=y  +  l  ELSE  LOCATE  x,  y+1 : PRINT"  " 

S30  IF  JOY (0)=2  OR  J0Y(0)=2  OR  J0Y(0)=6  OR  JDY(0)=10  THEN  y=y +1 : c=c+80 : a*=" A" : IF 
PEEK(c)=192  OR  PEEKCc)=128  THEN  c=c-SO:y=y-l  ELSE  LOCATE  x, y-1 : PRINT"  " 

S40  IF  JOY (0) =4  THEN  x=x-l : c=c-4: a$=“C" : IF  PEEK(c)=192  OR  PEEK<c)=128  THEN  c=c+4 
: x=x+l  ELSE  LOCATE  x+l.y: PRINT"  “ 

850  IF  JOY (0) =8  THEN  x=x+l : c=c+4: a$="B" : IF  PEEK(c)=192  OR  PEEKCc)=128  THEN  c=c-4 
:x=x-l  ELSE  LOCATE  x-1 , y: PRINT"  “ 

S60  LOCATE  6, 24: PRINT  bo 

370  IF  Mm=l  AND  x=14  AND  y=12  THEN  1020 

S80  IF  PEEK(c)=68  THEN  bo=po+10:F0R  9=15  TO  3  STEP  -1:S0UND  1 , 9*20, 9/3, 9 : NEXT : ar, 
=an+i:lF  an=4  THEN  FOR  9=1  TO  20:L0CATE  18, 12:PRINT  CHR$ ( 143) : SOUND  1,9*30,1.14: 
LOCATE  18,  12: PRINT"  " : SOUND  1 , 9*20, 1,15: NEXT  g:po=po+50 

890  IF  PEEK ( c  )  =  1 6  THEN  po=po+20 : FOR  9=1  TO  15:S0UND  1, 9*100,  1, 9 :SOUND  1,9*50,2,9 
,  1, l,3:NEXT:Kk=KK  +  l : IF  kK=4  THEN  FOR  9=1  TO  20:S0UND  1 , 9*30, 1 , 13 : LOCATE  11,  13:PR 

INT  CHR$(  143)  : SOUND  1,  9*15,  2,  15:L0CATE  . . NEXT  9:pc.=po+75 

800  IF  RND ( 1 ) <sv  THEN  910  ELSE  950 

810  IF  x)ux  THEN  ux=ux+l : up=uo+4: IF  PEEKCup)=32  OR  PEEK(up)=64  OR  PEEK(up)=12  OR 
PEEK C  UP) =192  THEN  ux=ux-l : up=up-4  ELSE  LOCATE  ux-1, uy : PRINT"  " 

320  IF  x<ux  THEN  ux=ux-l : up=up-4 : IF  PEEKCup)=32  OR  PEEK(up)=64  OR  PEEK(up)=12  OR 
PEEK(UP)=192  THEN  ux=ux+l : up=up+4  ELSE  LOCATE  ux+1 , uy : PRINT"  " 

930  IF  y>uy  THEN  uy =uy +1 : up=up+80: IF  PEEK(up)=32  OR  PEEK(up)=64  OR  PEEKCup)=12  O 
R  PEEK  CUP) =192  THEN  uy=uy-l : up=up-SO  ELSE  LOCATE  ux, uy-1 : PRINT"  " 

940  IF  y  <uy  THEN  uy=uy-l : up=up-80 : IF  PEEKCup)=32  OR  PEEK(up)=64  OR  PEEKCup)=12  O 
R  PEEKCUP)=192  THEN  uy=uy+l : up=up+SO  ELSE  LOCATE  ux, uy+1 : PRINT"  " 

950  PEN  8: LOCATE  ux, uy : PRINT" J" : PEN  6 

960  IF  PEEK(c)  =  12  AND  i  i =0  THEN  PEN  l:FOR  9=15  TO  3  STEP-O. 5: SOUND  1,9*30,9/3,15 
» LOCATE  11,  13 :  PRINT"  "  :  LOCATE  11,13:PRINT  CHRK143)  :NEXT  g :  po=po+200  :  LOCATE  x,y: 
PRINT"  " : y=y+2: c=c  +  160s i  i  =  l : INK  7,S,26:PEN  7:L0CATE  10,  21: PRINT  CHR*(224) : PEN  6: 
pp=1 :po=po+50 

970  IF  x=u x  AND  y=uy  THEN  I  I v= I  i v-1 : GOTO  1040 

980  IF  pp=1  THEN  SOUND  1, 200, 1, 10: IF  x=10  AND  y=21  THEN  PEN  l: LOCATE  10,21 : PRINT 
CHR$C 143) :FOR  9=3  TO  15:S0UND  1 , 9*20, g/3, 9 : LOCATE  11,  13: PRINT  CHR$ C 143) : LOCATE 
11,  13:RRINT"  " :NEXT : PEN  6: i  I =0 : pp=0 : y  =  y+l : c=c+SO : po=po+100: qq=qq+l : IF  qq=2  THEN 
101 0 

990  LOCATE  x,y: PRINT  a$ 

1000  GOTO  320 

1010  po=po+500: INK  9, 26, 0:PEN  9:L0CATE  14, 12 : PRINT"L" i CHRH C207) : PEN  6:mm=l:F0R  9 
=15  TO  3  STEP- l: SOUND  1, 2000, g/4, 9 :NEXT  9:G0T0  990 

1020  INK  9, 26 : PEN  9:S0UND  1, 9*15, 1, 14: FOR  g=14  TO  1  STEP  -i : LOCATE  9, 12: PRINT"L“ 
5CHRSC2Q7) "  " : SOUND  1, 9*20, 2, 15, 1, 1, 3:NEXT  9 : LOCATE  1,12:PRINT"  ":FOR  9-15  TO  8 
STEP- 1 :SOUND  1, 2000, 15, 9 :NEXT  9 

1030  CLSs i ev= I ev+1 : sv=sv-0.  3: PEN  3:PRINT  LOWER$("  LEVEL  :“);LEV:FDR  G=1  TO  2 
OOO : NEXT  G:CLS:GOTO  530 

1040  FOR  9=15  TO  S  STEP  -0.5:S0UND  1, g*10, g/2, 9, 1, 1, 3:LQCATE  x,y:PRINT  a$ : LOCATE 
x,  y : PRINT"  " : NEXT  g : LOCATE  16,25:PRINT  liv:lF  I  i v=0  THEN  1050  ELSE  iev=lev-l:GO 
TO  1030 

1050  MODE  1 : SYMBOL  AFTER  1:INK  1,26:PEN  1 : PRINT"SCORE  :  "P0:PRINT:IF  PO)HI  THEN 
HI=PO: PRINT :PRINT"YOU  HAVE  THE  HI GH-SCORE ": PRINT 

1060  PQ=0: PRINT "HIGH  :  ";HI:FOR  G=1  TO  20C'0 :  NEXT  G : PRINT : PRINT : PRINT" PRESS  SPAC 
E-BAR" 

1070  IF  INKEY (47)  O  O  THEN  1070  ELSE  80 


16 -"TAST!"  1/87 


GAMES 


Commodore 


Poker  Mathine 


Spil  poker  mod  din  datamat!  Er  du 
en  enlig  pokerspiller  vil  compute¬ 
ren.  efter  endt  indtastning,  være 
en  værdig  modstander  eller  rette¬ 
re  hele  fem  modstandere.  Maski¬ 
nen  spiller  nemlig  forfem  andre,  så 
I  ialt  erseks  omkring  pokerbordet. 
Alle  vidt  forskellige  spillere  med 
forskellige  luner  og  spillemåder. 
Fra  starten  spiller  alle  med  og  der 
blandes  samt  gives  kort.  Så  er  det 
tid  for  hver  enkelt  at  melde.  Dette 
gøres  midt  på  skærmen,  hvor  der 
så  vil  blive  skrevet  en  melding. 
Nogle  af  disse  er  ret  originale  og 
faktisk  overraskende! 

Bortset  fra  disse  få  oplysninger  vil 


du  hele  tiden  automatisk  blive 
hjulpet  igennem  programmet  ved 
hjælp  af  spørgsmål  og  instruktio¬ 
ner.  Dog  skal  du  lige  vide.  at  man  i 
poker  spiller  med  nogle  bestemte 
kortkombinationer  og  disse  spiller 
dette  spil  naturligvis  også  efter: 
Et  par  -  to  ens  kort. 
to  par  -  to  gange  to  ens  kort. 
tre  ens  -  tre  ens  kort  (samme 
værdi). 

straight  -  fem  kort  i  rækkefølge, 
f.eks.  10.B.D.K.ES, 
flush  —  fem  kort  i  samme  farve, 
hus  -  to  ens  og  tre  ens  (som  et  par 
og  tre  ens). 

Royal  flush  -  en  straight  i  hjerter. 


O  PR INT"<  CLR ,CRSR  NE025 ) "TAB< 39 )CHR* 

<  143) 

1  POKE  53280, 15SP0KE  53281,15 

s  PR INT"< SORT) "S POKE  53248+17,144 
5  PR INT"<  CLR ,CRSR  NED25 ) "TABC  39 )CHR* 

<  143) 

10  PRINT"<  CLR, SORT)  ";CHR*<  8  )  ,' 

:OIM  DY.<  13, 4), T '/X  13),L*<  13), 

F*<  13)  ,S*<  10) 

20  DEF  FNRV(  X3 )  =  INT<  < RND(  TI ) *X3 ) + 1 ) 

30  01  =  1 : FR=4 : FV=5 s SX=6  s TR= 1 3  s  BN=6 
s  SN= 1  O s RN=6  s  FD= 13 

40  FOR  X  =  1  TO  S  s  M%<  X  )  =  INT(  RND<  TI  )  *50 
0+700) SNEXT 

50  FOR  X=1  TO  13:  READ  L*<X)  SNEXT 
60  FOR  X= 1  TO  4: READ  L2*<  X  )  S  NEXT 
70  FOR  X=  1  TO  5  s  READ  L3*(X)  SNEXT 
80  FOR  X= 1  TO  9: READ  N*<  X  ) SNEXT 
90  FOR  X=  1  TO  BN:  READ  B«X)  SNEXT 
100  FOR  X= 1  TO  SN: READ  S*<  X  ) SNEXT 
110  FOR  X= 1  TO  RN: READ  R*<X)  SNEXT 
120  FOR  X= 1  TO  FD  s  READ  F*(X) SNEXT 
130  SS  = 1 30  s  MA=SS s  AL= . 22  s  FC= 1 .  15  SNG =6 
s  Dl  =  1 

140  Ml *= "MAX  I MUM  BET  IS  *1000.* 

s  M2*= " YOU  CAN’T  BET  WHAT  YOU  DON’ 

T  HAVE .  “ 

150  PR  I NT "<  SORT, CLR, CRSR  NED4 ) " 

: PR  I NT”  s  FOR  WO=l  TO  38 

SPRINT"-"; SNEXTS PRINT 
ISO  FOR  W0=0  TO  13SPRINT" | " SNEXT 

170  PR  I  NT "  ;  s  FOR  UJ0=1  TO  38 

SPRINT"-";  s  NEXT : PR I  NT 

171  FOR  P0=0  TO  13  s  POKE  1303+P0*40,66 
SNEXT  PO 


172  FOR  B9=0  TO  1 3  s  POKE  55575 +B9*40 ,0 
SNEXT  B9 

173  POKE  1263 ,73  s  POKE  56135,0 
s POKE  1863, 75  s POKE  55535,0 
s  PR  I  NT  "(  SORT)  "; 

180  DUJN=-99  s  GOSUB  3940 

190  R*=  " UJHAT  '  S  YOUR  NAME  ,  PARTNER  ?" 

s  PA=FNRV(  5 ) s  GOSUB  3630 
200  13=541  s GOSUB  3420 
210  L3*C  SX ) = I *  s  N6*= I *  s  DWN= -99 
S GOSUB  3940  s  DWN=0 
220  GOSUB  3530  s GOSUB  3510 

SR*="SIT  DOUJN,  "  +  I*+".  "SX=FNRV(  5) 
s  PA=X  s  GOSUB  3630 
230  XI  =FNRV<  5)  s  IF  X 1 =X  THEN  230 
240  R*= "GLAD  YOU  COULD  JO  IN  US." 

s  PA  =X  1  s  GOSUB  3630  s  UJO  =2  s  GOSUB  3500 
s GOSUB  38705WO=l 
250  GOSUB  3500 
260  GOSUB  3870  s GOSUB  3530 
270  L 1 = 1 sR$= "TH IS  IS  THE  -CBM-  POKER 
TOURNAMENT" s GOSUB  3770 
280  L 1 =2  s  R*= "GOOD  LUCK .  " s GOSUB  3770 
290  UJ0=3  s  GOSUB  3500 
300  1  =  1  +  1  SIF  1=7  THEN  1  =  1 
310  IF  FX<  I  )  =2  0R<  FX<  I  )  =  1  AND  MX(  I  X 
50) THEN  300 
320  GOSUB  430 
330  GOSUB  840 
340  I  1  =  1 SM=1 s GOSUB  930 
350  IF  EOG= 1  THEN  420 
360  GOSUB  1570 

370  IF  Fy.(  SX )  =0  THEN  GOSUB  920 
380  I  1  =  I  s  M=2  s  GOSUB  930 
390  IF  EOG= 1  THEN  420 
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400  GOSUB  3120 
410  GOSUB  3870 
420  GOTO  300 

430  FOR  X=1  TO  TR  s  FOR  XI  =  1  TO  FR 
440  DVX  X  , X  1  )  =0 :  NEXT  X1,X 
450  MX(  0>=0:E0G  =  0:NH=0:RS=0 
460  FOR  X=SX  TO  1  STEP-1 
470  BVX  X  >  =0  :  BV.VX  X  )  =0 

480  IF  FVX  X  )<  >2  THEN  FVX  X  )  =0  s  NH=NH  +  1 
490  IF  MXCXX50  AND  F%<X)<>2  THEN  GO 
SUB  640 

500  NEXT: IF  NG=1  THEN  770 
510  GOSUB  35 10 s GOSUB  3530 
:IF  FVX  SX  )  =2  THEN  550 
520  R*="DEAL  'EM  ? ■ : PR INT“< HOME , 

CRSR  NED13>"JTAB(  1 8 ) ;  *  (  Y/N ) " s L 1  =  1 
: GOSUB  3770 

530  13=541 tGOSUB  3420: IF  I*="N"THEN 
4  170 

540  GOSUB  3510 

550  GOSUB  3940: GOSUB  3530 

:R*»"I'LL  DEAL.  EVERYBOOY  ANTE  *2 
O.  ” 

560  0WN=- 1 : FOR  PA=1  TO  6 : GOSUB  3870 
:  NEXT :  DU1N=0  :  PA=  I 
570  PA=PA -  1  :  I F  PA  =  0  THEN  PA=6 
580  IF  FVX  PA  )  =2  THEN  570 
580  GOSUB  3630 
600  A8=20 : FOR  18=1  TO  SX 
610  IF  FVX  1 8  >  =0  THEN  GOSUB  3800 
620  NEXT  18 
630  RETURN 

640  IF  X<  >SX  THEN  700 

650  R*=L3*< SX>+" ,  YOU'RE  LOU  ON  CASH 
.  "  :L1  =  1 : GOSUB  3770 
660  R*="LJOULD  YOU  LIKE  TO  CONTINUE? 

(  Y/N )  "  :  L  1 =2 : GOSUB  3770: GOSUB  3420 
: IF  I*  = "N" THEN  700 

670  GOSUB  3510!R*="0.K.  WE'LL  GIVE  E 
VERYONE  *1000. " :L1=1 : GOSUB  3770 
680  FOR  18=1  TO  SX:IF  F%<13)<>2  THEN 
A8  =  -  1 000  :  FVX  I8)=0:G0SUB  3800 
680  NEXT :  MVX  O)  =0  :  RETURN 
700  FVX  X)=2:RD=1  :NG=NG-1  :L1=2 
710  PA=X : R*= " I  QUIT,  I'M  GOING  HOME." 

: GOSUB  3630 
720  WO=2: GOSUB  3500 

730  IF  MV(  X )  >=0  THEN  R*=L3*<X)  +  "  LEA 
VES  WITH  *  "  +  S  TR  *<  MVX  X  )  )  +  “  .  " 

: GOSUB  3770 

740  IF  MVX  X  )  <  O  THEN  R*=L3*<X)  +  "  LE  AV 
ES  AN  I.O.U.  FOR  *" +STR*<  0-MX<  X)  ) 

+  "  .  "  : GOSUB  3770 

750  W0=3: GOSUB  3500 : GOSUB  3510 
760  RETURN 

770  GOSUB  3530: GOSUB  3510 
780  FOR  X= 1  TO  SX 
790  IF  FVX  X  i  =0  THEN  810 
800  NEXT 


810  R*= "THE  C  B  M  -  POKER  TOURNAMENT 
IS  OVER. “ :L1=1 :GOSUB  3770 
820  R*=L3*<X)  +  "  IS  THE  CHAMPION.  CON 
GRATULATIONS  !  "  : L  1  =2 : GOSUB  3770 
830  L10=  10:  GOSUB  3500  :  PR  I  NT  "<  HOME  )  "  ; 

: GOTO  10000 

840  FOR  Xl=l  TO  FV:FOR  X2=I  TO  1+5 
850  X=X2 : IF  X >6  THEN  X=X-6 
860  IF  FVX  X  )  =2  THEN  910 
870  C=FNRV< TR) :C1=FNRV< 4) 

:  IF  DVX  C ,C 1 )  =  1  THEN  870 
880  DVX  C,Cl)=ls  ftVX  X,X1  ,0  )  =C 
’.FiVX  X,X1 , 1 >=C1 

890  DWN=  1  :  PA=X  :  C=X  1  :  IF  PA=SX  THEN  DUJ 
N=0 

900  GOSUB  1880 

910  NEXT  X2,Xl: GOSUB  3530: RETURN 
920  PA=SX:DUJN=0:  GOSUB  1870:  RETURN 
930  B9=0: GOSUB  3510: GOSUB  3530 
940  IF  FVX  I  1  )<  >0  THEN  1070 
950  GOSUB  1950 

960  C8=0 : IF  00 >0  THEN  C8=C8+1 
970  IF  D 1 >0  THEN  C8=C3+1 
980  IF  02 >0  THEN  C8=C8+1 
990  MVX  11,0)  =N9  :  MVX  11,1)  =DO 
t\JVX  1 1  ,2  )  =0  1  iMVX  I  1  ,3  )  =D2 
IVVX  I  1  , 4  )  =D3  :  VV<  I  1  ,5)=N1 
1000  IF  ST/X  11,5)  >TR  THEN  MVX  II, 

5  )  -MVX  I  1  ,5  >  -TR 

10  10  MVX  11,6)  =N2  :  MVX  11,7)  =C8 

1020  IF  NH  = 1  THEN  R*=L3*(  I  1  )  +  "  TAKES 
THE  POT  OF  *"+STR*<  MVX  O)  )  :L1  =  1 
: GOSUB  3770 

1030  IF  NH= 1  THEN  EOG=l: 18=11 

:A8=ZR-M*/.(  ZR)  :  GOSUB  3800:  GOTO  1200 
1040  IF  11=6  THEN  GOSUB  1300 
1050  IF  I  1 <  >6  THEN  GOSUB  2740 
1060  IF  EOG  = 1  THEN  1200 
1070  11=11+1! IF  11=7  THEN  11=1 
1080  IF  I  1 <  > I  THEN  940 
1090  11=1 

11  OO  IF  FVX  II)  =0  AND  B9  >BVX  I  1  )  THEN  O 

N  II  GOSUB  3050,3050,3050,3050, 
3050,1210 

1110  11=11+1: IF  11=7  THEN  11=1 

1 120  IF  I  1 <  > I  THEN  1 100 

1130  IF  FVX  II)  =0  THEN  MA=AL*B*(  SX  )  +< 

1 -AL  >  *MA 
1140  G2=0 : G3=0 
1150  FOR  X= 1  TO  SX 

1160  IF  FVX  X  )  =0  THEN  G2=G2+l:G3=X 
1 170  NEXT 

1180  IF  G2= 1  THEN  E0G=1:G0SUB  3510 
:R*=L3*(  G3)  +  "  TAKES  THE  POT  OF  *H 
+STR*<  MVX  O  )  ) 

1190  IF  G2= 1  THEN  L  1  =  1 : GOSUB  3770 
: I8=G3 : A8  =  -MX(  O ) : GOSUB  3800:U0  =  3 
: GOSUB  3500 
1200  RETURN 
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1 2 !0  GOSUB  35 1 0 : RS  =0 

1220  R*="YOU'VE  BEEN  RAISED  TO  *”+ST 
R*(  B93  +  " .  " :L1  =  1 : GOSUB  3770 
1230  R*="DO  YOU  SEE  OR  FOLD  ?’:L1=2 
: GOSUB  3770 

1240  13=556  :  GOSUB  3420 :  I*=LEFT*<  I*, 1 3 
: GOSUB  3510 

1250  IF  I$= “C “ THEN  GOSUB  4480 
1260  IF  I*<>"F"AND  I*<>"S"THEN  1210 
1270  IF  I$=”F“THEN  FX(  6)  =  1 :B%< SX)=0 
:NH=NH-1 :PA=SX: GOSUB  3880 
1280  IF  I * = "S "THEN  13= I  1 : A8=B9-BX<  I  1 : 

: GOSUB  3800 
1290  RETURN 

1300  GOSUB  35 10  s  IF  B9=0  AND  1  =  1  THEN 
R*=”THE  POT  IS  *n+STR$(M«0)) 

: L 1  =  1  s  GOSUB  3770 

1310  IF  B9=0  AND  1=1  THEN  R*= "LOOKS 
LIKE  I  TAKE  IT. PA=SX : GOSUB  3630 
:  I8=SX 

1320  IF  B9=0  AND  1=1  THEN  A8=ZR-M%CZ 
R  3  : GOSUB  3800 : EOG= 1 : GOTO  1560 
1330  IF  B9=0  THEN  RS=1 

:R*=”UJHAT  DO  YOU  BET  ?  ”  :  L  1  =  1 
: GOSUB  3770: 13=541 :GOSUB  3540 
1340  IF  B9=ZR  THEN  GOSUB  3510 

: GOSUB  4050: IF  Ll<>9  THEN  GOTO  15 
60 

1350  IF  L 1 =9  THEN  L 1  =  1  : GOSUB  3510 
: B9=ZR : GOTO  1330 

1360  R*=N6*+",  THE  BET  STANDS  AT  $"  + 
STR*< B93  +  " . " :L1=1 : GOSUB  3770 
1370  R*="DO  YOU  SEE,  RAISE, 

OR  FOLD  ?  "  : L  1  =2 : GOSUB  3770 
1380  13=559 : GOSUB  3420 : Z*=LEFT*(  I * , 13 
1390  G2=ZR : G3=ZR 
1400  FOR  X= 1  TO  FV 

1410  IF  FYX  X  3  =ZR  TUEN  G2=G2+l:G3=X 
1420  NEXT 
1430  GOSUB  3510 
1440  IF  Z*="C"THEN  GOSUB  4480 
1450  IF  Z*<>"S"AND  Z*<>"F"ANO  Z*<>"R 
"THEN  1360 

1460  IF  Z%- "F "AND  G2=l  THEN  R*=L3*(  G 
33 +  "  TAKES  THE  POT  OF  *"  +STR*<  MYX 
ZR  3 ) : L 1  =  1 

1470  IF  Z*="F"AND  G2=l  THEN  GOSUB  37 
70  :  I8=G3  :  A8=ZR-M>X  ZR  3  :  GOSUB  3800 
:LI0=2:  GOSUB  3500 

1480  IF  Z$="F"AND  G2=l  THEN  E0G=1 
: GOTO  1560 

1490  IF  ZS="F"THEN  FYX  SX  3  =  1  :  BYX  SX  3  =ZR 
:NH=NH-1 :PA=SX: GOSUB  3880 
: GOTO  1560 

1500  IF  Z*="S"THEN  BYX  SX  3  =B9  :  I8=SX 
:A8=B9: GOSUB  3800 : GOTO  1560 
1510  IF  Z*="R"AND  B9  >  =MYX  SX  3  THEN  R*= 
"YOU  DON'T  HAVE  ENOUGH  MONEY  TO  R 
A  I  SE  "  :  L 1  =  1 


1520  IF  Z$="R"AND  B9  >=MYX  SX  3 THEN  GOS 
UB  3770: W0=2: GOSUB  3500 : GOSUB  3510 
: GOTO  1360 

1530  IF  Z*="R”THEN  RS=1 

:R*="WHAT  IS  THE  AMOUNT  OF  THE  RA 
ISE  ?" :L1=1 : GOSUB  3770 
1540  IF  Z*=“R"THEN  I3=540:G0SUB  3540 
: GOSUB  3510:R1=VAL<  1*3 :GOSUB  4120 
1550  IF  Z*="R"THEN  IF  L 1 =9  THEN  GOSU 
B  3510: GOTO  1530 
1560  RETURN 

1570  I  1  =  I : GOSUB  3530:G0SUB  3510 
1580  IF  FYX  I  1  3  =ZR  AND  I  1  =SX  THEN  GOS 
UB  1760 

1590  IF  FYX  I  1  3  =ZR  AND  IK3SX  THEN  GO 
SUB  1630 

1600  11=11+1: IF  11=7  THEN  11=1 
1610  IF  I  1 <  > I  THEN  1580 
1620  RETURN 

1630  D6*0 : FOR  X=1  TO  5 

1640  IF  PlYX  I  1  ,X,  1  3=VX<  I  1  ,4  30R  PlYX  1  l  , 

X ,0 3 =VX<  I  1 , 1 3 THEN  GOSUB  1710 
1642  IF  ftY<  I  1  ,X  ,0  3  =VY(  11,2  3 OR  P\YX  II, 
X,0  3=VX<  I  1,3 3 THEN  GOSUB  1710 
1650  NEXT 

1660  IF  D6= 1  THEN  R*= "  CARD . " 

1670  IF  06<  > 1  THEN  R*="  CARDS." 

1680  PA=I 1 :R$=" I  TAKE  " +STR*(  D6 3 +R* 

: GOSUB  3630 

1690  IF  D6=  1  AND  RND<TI3<.3  THEN  BLY. 

<  113=3 
1700  RETURN 

1710  C=FNRV(  TR3 :C1=FNRV< FR3 
:  IF  DYX  C  ,C  1  3  =  1  THEN  1710 
1720  IF  DYX  C  ,C  1  3=0  THEN  D%CC,C13  =  1 
1730  PlYX  I  1  ,X,03=C:AX<  I  1  ,X,  1  3=C1 
:D6=D6+ 1 

1740  IF  D6=V%C  I  1  ,7  3THEN  X=FV 
1750  RETURN 

1760  GOSUB  35 10 : R*= "  PLEASE  ENTER  CA 
RD  NUM8ERS " : L 1  =  1  s GOSUB  3770 
1770  R*="  TO  DISCARD  .  "  I L 1 =2 
: GOSUB  3770 

1780  13=558 : GOSUB  3540:G*=I* 

: GOSUB  3510 

1790  FOR  X=  1  TO  LEN<G*3 
1800  L=VAL<  MID*<  G*,X,  1  3  3 
1810  IF  L3FV  OR  L<ZR  THEN  1760 
1820  C=FNRV<  TR  3  :  C  1  =FNRV<  FR  3 
:  IF  DYX  C  , C  1  3  =  1  THEN  1820 
1830  IF  D/«  C,C1  3=ZR  THEN  0%<C,C13  =  1 
1840  A  YX  SX  ,L  ,ZR  3  =C  :  P\YX  SX,L,  1  3=C1 
1850  NEXT 
1860  RETURN 

1870  FOR  C=1  TO  5:G0SUB  1880:NEXT 
: RETURN 

1880  GOSUB  3700 : C  1 =4 : PR  I NT "< CRSR  NED 
4  3  "  ;  :  IF  PA  33  THEN  Cl=-3 
: PR INT"<  CRSR  OP4  3"; 
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1890  FOR  XY=C 1  TO - 1 : PR  I NT "C CRSR  OP>"J 
s  NEXT  XY  s  ON  DU1N  GOTO  1920 
1900  1  )  =  "<  SORT)  ”+LEFT*<  L*<  PiYX  PA,C, 

Z  R  )  )  +  “  ”  ,3)  :C*<  2)  =  "  *'  +L2*<  PiYX  PA  , 

C  ,  1  )  )  +  "  * 

1910  C*<  3)  =  "<  SORT)  ■+RIGHT*(  °  B+LS<A 
YX  PA  ,C  ,ZR )  )  ,  3  )  s  PR  I  NT"  “  ;  s  GOTO  1930 
1920  C*C1)  =  "<RVS  ON, ROD  )ff  =A  " 
sCS<  2)  =  "<  RVS  ON, ROD  XtttA  " 

:C*(  3)=CS<  1  ) 

1930  FOR  141  =  1  TO  3 :  GOSUB  3730 

SPRINT  SPC< 2*C-1 )C*(  U1 ) SNEXT 
:PRINT"(  SORT) "? 

1940  RETURN 

1950  FOR  X= 1  TO  TR s TX< X ) =ZR s NEXT 
1960  FOR  X= 1  TO  FR  s  T2YX  X ) =ZR  s  NEXT 
1970  N9=ZR  5R=2RsBl=ZRs  B2=ZR  s  P 1 =ZR 
s  P2=ZR  s  N=ZR  s  NI =ZR  s  N2=ZR  s  N3  =ZR 
s  DO=ZR  s  D 1 =ZR  s  D2=ZR 
1980  D3=ZR  s  T3=ZR 
1990  FOR  X= 1  TO  FV 
2000  TX(  PiYX  I  1  ,X,ZR>  )=T  YX  ftYX  I  1  ,X  , 

ZR  )  )  +  1  s  T2X<  PiYX  I  1  ,X  ,  1  )  )  =T2X<  AX<  I  1  , 
X,  1  )  )  +  l 
2010  NEXT 

2020  FOR  X= 1  TO  FR 

2030  IF  T2X<  X  >  >R  THEN  R  =  T2X(  X  )  s  S  1  =X 
2040  NEXT 

2050  FOR  XI =1  TO  TR 

2060  IF  TX<  XI) =0  THEN  2120 

2070  V=0 

2080  FOR  X= 1  TO  4SX2=X1+X 
SIF  X2  >TR  THEN  X2=X2-TR 
2090  IF  TY.(  X2  XI  THEN  X=5sNEXT 
s  GOTO  2  1  10 
2100  V=V+1 s  NEXT 
2110  IF  V  =  3  OR  V=4  THEN  2130 
2120  NEXT 

2130  IF  R  =F V  AND  V  =  FR  THEN  Bl  =  .5 
s  B2= . 8  s  N9= 1  s  NI =X 1 +FR  s  N2=S 1 
s  GOTO  2730 
2140  FOR  J=1  TO  TR 
2150  IF  TYX  J ) =4  THEN  2170 
2160  NEXT  s  GOTO  2200 
2170  FOR  Jl=l  TO  TR 
2180  IF  TY.(  J  1  )  =  1  THEN  02  =  JlsBl  =  .5 
!B2=.7sNl=J  s  N9  =  2  s  GOTO  2730 
2190  NEXT 

2200  FOR  J3=TR  TO  1  STEP-1 
22  10  IF  TYX  J3  )  =  1  THEN  2230 
2220  NEXT 

2230  IF  R=FV  THEN  NI =J3 s N9=FR s B 1 = . 3 
s  B2  = . 6  s  GOTO  2730 
2240  FOR  J4  = 1  TO  TR 

2250  IF  TYX  J4 )  =3  THEN  T3=J4sGOTO  2270 
2260  NEXT 

2270  FOR  J5=TR  TO  1  STEP-1 

2280  IF  TX(J5)=2  THEN  P 1 = J5 s  GOTO  2300 

2290  NEXT  s  IF  J5=ZR  THEN  2330 


2300  FOR  J6=(J5-1)T0  1  STEP-1 

2310  IF  TYX  J6 )  =2  THEN  P2  =  J6sG0T0  2330 

2320  NEXT 

2330  IF  T3  >0  AND  P 1 >0  THEN  N9  =  3 
s  B 1  =  . 45  s  B2= . 75  s  N 1 = J4  s  N2= J5 
s  GOTO  2730 

2340  IF  V=FR  THEN  N9=5  s  NI =X 1 +FR  s  N2=X 1 
s  B 1  =  . 25  s  B2= . 5  s  GOTO  2730 
2350  FOR  H 1 = 1  TO  TR 
2360  IF  TYX  H  1  )  =  1  THEN  2380 
2370  NEXT 

2380  IF  H 1 >  =TR  THEN  2460 
2390  FOR  H2  =H 1  +  1  TO  TR 
2400  IF  T>XH2)  =  1  THEN  2420 
2410  NEXT 

2420  IF  H2  >  =  TR  THEN  2460 
2430  FOR  H3=H2+ 1  TO  TR 
2440  IF  TYX  H3  )  =  1  THEN  2460 
2450  NEXT 

2460  IF  T3  >0  THEN  N9=6 s B 1  =  . 25  s B2= . 25 
s  NI =J4  s  D 1 =H 1  s  D2=H2  s  GOTO  2730 
2470  IF  P 1 >ZR  AND  P2>ZR  THEN  N9=7 
s  NI =P 1  s  N2=P2  s  02 =H 1 sBl  =  .15sB2=.15 
s  GOTO  2730 

2480  IF  R<  4  THEN  2530 
2490  FOR  H4  = 1  TO  FR 
2500  IF  T2X<  H4 )  =  1  THEN  2520 
2510  NEXT 

2520  IF  R=FR  AND  M= 1  THEN  Bl=.lsD3=H4 
s  GOTO  2730 

2530  IF  V< >3  OR  M=2  THEN  2630 
2540  FOR  H9= 1  TO  X 1 -2 
2550  IF  TYX  H9  )  =  1  THEN  2620 
2560  NEXT 

2570  IF  XI >8  THEN  2620 
2580  FOR  H9=X1+FV  TO  TR 
2590  IF  TYX  H9  )  =  1  THEN  2620 
2600  NEXT 

2610  IF  H9  =14  THEN  H9=P1 

2620  IF  V=3  AND  M= 1  AND  Xl<9  AND  Xl< 

>1  THEN  B 1  =  . 07  s  D 1 =H9  s  GOTO  2730 
2630  IF  P 1 < 1  THEN  2650 
2640  N9=8  s  DO=H 1  s  D 1 =H2  s  D2=H3 

s  B 1 =P 1 1 . 33* . 04253  s  B2=SQR< P 1 ) * . 028 
s  NI =P is  GOTO  2730 

2650  IF  V=3  AND  M= 1  THEN  Bl=.03s01=H9 
s  GOTO  2730 

2660  FOR  J3=TR  TO  1  STEP-1 
2670  IF  TYX  J 3  )  =  1  THEN  2690 
2630  NEXT 

2690  FOR  J4=J3- 1  TO  1  STEP-1 
2700  IF  TYX  J 4  )  =  1  THEN  2720 
2710  NEXT 

2720  B 1 =ZR  s  B2=ZR  s  N9=9  s  NI = J3  s  N2  =  J4 
2730  RETURN 

2740  IF  FYX  I  1  )<  >ZR  THEN  3040 

2750  IF  M=1  THEN  B7=B1*1000 

2760  IF  M=2  THEN  B7=B2*10OO 

2770  IF  M=1  AND  B7=ZR  AND  MYX  II)  >800 
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RNDCTIX.05  THEN  GOSUB  4210 
BL XC  I  1  >  =  1  THEN  B7=200+FNRVC  1 


AND 
2780  IF 
00) 

2790  IF  BLXC  II) =2  THEN  B7=250 +Fh«VC  1 
00) 

2800  IF  M= 1  ft NO  B7=ZR  THEN  GOSUB  4180 
:  GOTO  3040 

2810  IF  BLXCI1)=3  ftND  B?=ZR  THEN  B7= 
240+FNRVC  100) 

2820  IF  M=2  AND  B7=ZR 
7  )<  =2  AND  RNOC  TI  )  >. 


AND  VXC  I  1  , 

,75  THEN  B7=360 


2830 

2840 

2850 

2880 

2870 


S7=B7/FV:B8=ZR:B7XC  I1)=B7 
FOR  X= 1  TO  12 : B8=B8+RNDC  TI ) :NEXT 
B8=< C  B8-6  )*S7)+B7 
B8=  I NT<  B8  ) 

IF  B9  =  ZR  Aid  M XC  I  1  X  =ZR  THEN  R$ 


IN  COINS" :PA= I  1 


M XC  I  1  X  =ZR  THEN  MX 
1  : B9= 1 


=  “HERE  '  S  *1 
: GOSUB  3630 
2880  IF  B9=ZR  AND 

C  ZR)=MXC  ZR)  +  1  :BXC  Il)> 

:  GOTO  3040 

2890  IF  B9=ZR  AND  B8  >MXC  II) THEN  B8=M 
VX  II) 

2900  IF  B9  >ZR  AND  B8-S7>=B9  AND  B8 >M 
VX  I  1  )  THEN  B8=MXC  I  1  ) 

2910  IF  B9=ZR  THEN  R*=B*C  FNRVC  BN)  ) +S 
TR*C B8) :PA= I  1 : GOSUB  3630 
2920  IF  B9=ZR  THEN  B9=B8 :  18= I  1  : A8=B8 
: GOSUB  3800  s  BXC  II)  =B8  :  GOTO  3040 
2930  IF  B8 -S7  >  =B9  THEN  R*  =  RSC  FNRVC  RN 
) )+STR*C  B8) :PA=I 1 : GOSUB  3630 
2940  IF  B8-S7  >=B9  THEN  B9=B8:  18=11 
: A8=B8 : GOSUB  3800 : BXC  I  1  ) =B8 
: GOTO  3040 

2950  IFC  VXC  I  1  ,ZRX  =7  OR  VXC  II, 

FV  ) >=10 )ANO<  MA  >SS )ANDC  RS= 1 )THEN  S 
7=S7  +C  MA  -SS  )  t FC 
2960  IFC B8-S7<  =B9  AND 
C  I  1 ,ZR )< =SX )ORC M= 1 
N  R*= " " :PA=I 1 
2970  IFC B8 -S7<  =B9  AND 
C  I  1  ,ZR)<  =SX  )ORC  M=  1 
N  GOSUB  3630 
2980  IFCB8-S7<=B9  AND 
C  I  1 ,ZR )< =SX )0R(  M= 1 
N  R*=S*C  FNRVC  SN)  ) 

2990  IFC B8-S7<  =B9  AND 
C  I  1  ,ZR  X  =SX  )ORC  M=  1 
N  GOSUB  3630 
3000  IFC B8 -S7<  =B9  AND 
<  I  1  ,ZR  X =SX )ORC  M=1 
N  BXC  I  1  )  =B9  s  18=11 
3010  IFC B8-S7<  =B9  AND 
C  I  1  ,ZR  )<  =SX)OR(  M=  1 
N  A8=B9; GOSUB  3800 
3020  IFC B3-S7<  =B9  AND 
C  I  1  ,  Z  R ) < =SX )0R< M= 1 
N  3040 

3030  IF  B8 -S7<  B9  THEN  PA = I  1 : R$  = ” “ 


B8  +S7  >B9 )0R< VX 
AND  B9< 100 )THE 


B8+S7)B9  )ORC VX 
AND  B9< 1 00 ) THE 


B8+S7>B9 )0R(  VX 
AND  B9< 100 )THE 


B8+S7  >B9)0R< VX 
AND  B9< 100 )THE 


B8  +S7  >B9 )0R< VX 
AND  B9< 100 )THE 


B8  +S7  >B9 )ORC VX 
AND  B9< 100 )THE 


B8+S7  >B9  )QRC VX 
ANO  B9< lOO )THE 


: GOSUB  3630: GOSUB  4160 
3040  B9= I NTC B9) : RETURN 
3050  R7=B9-BXC  I  1  )  :S7=B7XC  I  1  )/FV 
:  B8  =B7XC  I  1  ) 

3060  S3=S7  :  IF<  VX(  I  1  ,ZR)<  =7  OR  VX<  II, 
FV) >=10)AN0(  MA  >SS ) AND(  RS=01 ) THEN 
S3  =  S7  +  <  MA -SS ) tFC 
3070  I  F(  B8  +S3  >  =B9  )  0R<  VX(  I  1  , 

ZRX  =SX)OR(  M=1  ANO  B9<100)THEN  PA 
=  1  1  :R*=S*<  FNRVC  SN)  > 

3080  IF(  B8+S3 >=B9 )0R< VX(  II, 

ZRX  =SX  )0R<  M=  1  AND  B9<100)THEN  GO 
SUB  3630 :BX<  I  1  )  =B9 :  18=1  1 
3090  IFC  B8 +S3 > =B9 )0R<  VX<  II, 

ZRX  =SX  )0R<  M=  1  AND  B9<100)THEN  A8 
=R7 : GOSUB  3800:G0T0  3110 
3100  IF  B8  +S7<  B9  THEN  PA= I  1 : R*= " " 

: GOSUB  3630: GOSUB  4160 
3110  U0=2 : GOSUB  3500:RETURN 
3120  GOSUB  35 10: GOSUB  3530 
:R*=*'O.K.  EVERYBODY, 

THE  POT  IS  *"+STR*<  MX<  ZR)  )  +  *  .  ■ 

:  L  1  =  1 

3130  GOSUB  3770:R*="LAY  DOWN  YOUR  HA 
NOS. " :L1=2:G0SUB  3770 
3140  FOR  X=1  TO  SX 
3150  IF  FX<  X  X  >0  THEN  3260 
3160  N9=VX<  X ,0 ) 

3170  IF  N9=2  OR  N9=SX  OR  N9=8  THEN  R 
*=N*<N9)  +  "  “  +L*<  VX<  X,FV)  )  +  "  *  S  " 

: GOTO  3230 

3180  IF  N9=l  OR  N9=5  THEN  R*=N*(N9)  + 
"  "+L*<  VX<X,5))  +  "  'S  HIGH" 

: GOTO  3230 

3190  IF  N9=3  OR  N9=7  THEN  R*=N*C N9 ) + 
"  "+L*(  VX<  X,5)  )  +  "  ’S  OVER  " +L*<  VX< 
X ,6 ) )  +  "  'S" 

3200  IF  N9  =  3  OR  N9  =  7  THEN  3230 
3210  IF  N9=FR  THEN  R*=N*(N9) 

: GOTO  3230 

3220  IF  N9=9  THEN  R*=N*<N9) 

3230  PA  =X : GOSUB  3630 
3240  IF  FXCXX  >0  THEN  3260 
3250  PA=X:0WN=0: GOSUB  1870 
3260  NEXT 

3270  A=ZR:A1=ZR:G=10: W0=4 : GOSUB  3500 
: GOSUB  3530 
3280  FOR  X= 1  TO  SX 
3290  IF  FX<  X  )  >ZR  OR  VX<  X  , 

ZR ) >G  THEN  3370 

3300  IF  VX<  X,ZRXG  THEN  G=VX<X,ZR) 

: A=X : GOTO  3370 

3310  IF  VXC  X  ,FV  )  >VX<  A  ,FV  )THEN  A=X 
: GOTO  3370 

3320  IF  VX<  X  ,FV  X  VX(  A  ,FV  )THEN  3370 
3330  IF  VXC  X,SX)  >VX(  A,SX) THEN  A=X 
: GOTO  3370 

3340  IF  VXC  X  ,ZR  )  =  7  Atd  VXC  X  ,  3  )  >VXC  A  , 
3 )THEN  A  =X : GOTO  3370 
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3350  IF  VX(  X  ,ZR  )  =8  THEN  Al  =VX(  A  , 
3)*169+VX<  A,2)*13+VX<  A,  1  ) 

33S0  IF  VX(  X  ,0  )  =3  THEN  XI  =VX<  X  , 

3  )  *  1 69  +VX«  X  ,  2  )  #  1 3  +VX«  X  ,  1  ) 

: IF  XI >A1  THEN  A=X 
3370  NEXT 

3380  GOSUB  35 10 : RS=L3S(  A )  +  “  TAKES  TH 
E  POT  OF  S"+STRS<  MX<  ZR)  )  +  "  .  "  :L1  =  1 
: GOSUB  3770 

3390  1 8  =  A  :  A8=ZR  -MX«  ZR  )  :  GOSUB  3800 
3400  UI0=2:  GOSUB  3500 
3410  RETURN 

3420  IS=" " :GOSUB  3490:PRINT  CHRS<164 
)  "(  CRSR  VENSTRE)"; 

3430  GET  I1S:IF  I1S=""THEN  3430 
3440  IF  I 1S=CHRS< 20)AN0  LEN«IS)>0  TH 
EN  PR  INT"(  CRSR  VENSTRE ) "CHRS(  164 ) 

"  <  CRSR  VENSTRE2)"; 

:  IS=LEFTS<  IS, LEN«  IS)-1  )  :GOTO  3430 
3450  IF  I 1S=CHRS(  13)AND  LEN«IS)>0  TH 
EN  PRINT"  " *  s  GOTO  3490 
3460  IF  LEN«  IS)  =  10  THEN  PRINTXCRSR 
VENSTRE  10, SPACE  1 1 ,CRSR  VENSTRE  1 1 ) 
"CHRS(  1 64  )  "<  CRSR  VENSTRE )";: IS= " " 

: GOTO  3430 

3470  IF  I  1  S<  "O “OR  I1S>"Z"THEN  3430 
3480  IS=IS+I 1S:PRINT  I  1SCHRS«  164  )  “(  C 
RSR  VENSTRE) "J :GOTO  3430 
3490  PA=6:RS=" " : GOSUB  3630: RETURN 
3500  FOR  Ull  =  l  TO  W0*800:NEXT  W1 
: RETURN 

3510  RS= " " : L 1 = 1 : GOSUB  3770:L1=2 
: GOSUB  3770: RETURN 
3520  RETURN 

3530  FOR  PA  = 1  TO  6 : RS= " " : GOSUB  3630 
: NEXT: RETURN 

3540  IS= . GOSUB  3620: PRINT  CHRS«  164 

)  "<  CRSR  VENSTRE)"; 

3550  GET  I1S:IF  I1S=""THEN  3550 
3560  IF  I  1S=CHRS<  20)AN0  LEN«IS)>0  TH 
EN  PR  I  NT 11  <  CRSR  VENSTRE  )  "CHRS«  164) 

"  (  CRSR  VENSTRE2)",* 

:  IS=LEFTS<  IS,LEN<  IS)-1  )  :GOTO  3550 
3570  IF  I  1*=CHR*(  13)AND  LEN(I*)>0  TH 
EN  PRINT"  " ; : GOTO  3610 
3580  IF  LEN<  I*)  =  10  THEN  PRINT"(CRSR 
VENSTRE  10, SPACE  1 1 ,CRSR  VENSTRE  1 1 ) 
"CHR*<  164  )”(  CRSR  VENSTRE)  ";  :  I*="  " 

: GOTO  3550 

3590  IF<  I  1*<  "O  "OR  I  1S>"9"  )AND  I  ISO" 

F  "AND  I  ISO  "C  "THEN  3550 
3600  IS=IS+I 1S:PRINT  I  1 SCHRS<  164  )  "< C 
RSR  VENSTRE) ";: GOTO  3550 
3610  IF  I S= " C " THEN  PRINT"(CRSR  VENST 
RE2,SPACE2)  *’;:  GOSUB  4480:  GOTO  3540 
3620  PA=6 : RS= “ " : GOSUB  3630: RETURN 

3630  IF  RIGHTSC RS, 1 X >" . "THEN  RS=RS+ 

-  .  "  :VG=1 

3631  IF  VG  = 1  THEN  RS  =  LEFTS(  RS , 


LENC  RS )  -  1  )  :VG=0 
3632  GOSUB  3700:F0R  Wl=-2  TO  O 
: GOSUB  3730: PR  I NT  " 

: NEXT: GOSUB  3700:RS=RS+"  " 

3640  UJO  =12:  I F  UJ1  +U10  >LEN(  RS)THEN  UO=L 
EN<  RS)-U1 

3650  IF  MIDS(  RS,W1 +UJO  , 

1><>"  "THEN  WO=WO-l :GOTO  3650 
3660  GOSUB  3730: PRINT  SPCC 6-UO/2 )MID 
S<  RS,ldl  ,W0)  :  Ull  =U11  +W0  : 

3670  IF  Ull  =LENC  RS) THEN  GOSUB  3730 
: RETURN 

3680  IF  MI0S(  RS,UI1  ,  1  X  >“  "THEN  3640 
3690  UI1=U1  +  1  :GOTO  3670 
3700  ON  PA  GOTO  3710,3710,3710,3720, 
3720,3720 

3710  PRINT"« HOME , CRSR  NED6 )";: RETURN 
3720  PRINT"« HOME, CRSR  NED  1 7 )";: RETURN 
3730  ON  PA  GOTO  3740,3750,3760,3760, 
3750,3740 

3740  PRINT  TAB«  1 ); : RETURN 
3750  PRINT  TAB«  14); :RETURN 
3760  PRINT  TAB« 27); : RETURN 
3770  PRINT"« HOME) "; :FOR  XY=1  TO  1 1 +L 1 
: PR  I NT : NEXT  XY:PRINT  TAB« 2 > ; 

: FOR  LI =2  TO  38: PRINT"  ";:NEXT 
: PRINT 

3780  PRINT  TAB«  2  1 -LEN«  RS)/2)  "(  CRSR  O 
P)  "RS 

3790  IF  R IGHTS« RS, 1 X >" . "THEN  RS=RS+ 

"  .  “  : VG= 1 

3791  IF  VG= 1  THEN  RS=LEFTS(  RS, 

LEN«  RS  )  -  1  )  :VG=0 

3792  RETURN 

3800  PR  INT"(  SORT)  ";  :MX<  I8)=MX(  I8)-A8 
:  MX(  ZR  )  =M%<  ZR  )  +A8 

3810  IF  F%<  I8)=ZR  THEN  RS=  "S"  +STRS«  M 
X«  18  )  )  :  GOSUB  3830  :  PR  INT  "<  SORT)  "  i 
3820  RETURN 

3830  PA= 18 : GOSUB  3910:C1=3 
:  IF  PA  >3  THEN  3850 
3840  FOR  XY  = 1  TO  PEEK«  198 ) +C 1 : PR INT 
: NEXT  XY 

3850  GOSUB  3730: PR INT  SPC«  1 ) " 

(CRSR  VENSTRE  10 )";: GOSUB  3730 
3860  PRINT  SPC« 4-LEN« RS)/2)RS 
: RETURN 

3870  FOR  PA= 1  TO  SX: GOSUB  3880: NEXT 
: RETURN 

3880  IF  FX«  PA ) =ZR  AND  DWN<>-1  THEN  R 
ETURN 

3890  GOSUB  3700 : C  1 =2 : PR INT"(  CRSR  NED 
3 ) * :  IF  PA  >3  THEN  Cl=-3 
: PRINT"« CRSR  0P4)"; 

3900  FOR  XY=C 1  TO- 1 : PR INT"(  CRSR  OP)"; 
:  NEXT  XY :  FOR  UI1=0  TO  2 :  GOSUB  3730 
: PR INT"  ": NEXT: RETURN 

3910  ON  PA  GOTO  3920,3920,3920,3930, 
3930,3930 
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3920  PR  I NT "C  HOME) H: RETURN 
3930  PR INT"< HOME ,  CRSR  NED2 1 )";: RETURN 
3940  FOR  PA=1  TO  SX:IF  DUN< >-99  AND 
Fy.<  PA  )  =ZR  THEN  4040 

3950  CS<  1  >  =  "<  SORT)  , - ,  " 

:CS<  2)  =  "<  SORT)  |  1“ 

:CS(  3  )  =  "  <  SORT)  * - >  " 

39S0  IF  FX(PA)=2  THEN  CS<  1  )  =  " 

"  :  CSC  2  )  =CS<  1  )  :  C*<  3  )  =CS<  1  ) 

3970  GOSUB  3910: IF  PA< 4  THEN  60SUB  3 
730:  PR  I  NT  CSC  1  > 

3980  FOR  Wl  =  l  TO  3 
3990  GOSUB  3730: PR  I NT  CS(2):NEXT 
4000  IF  PA  >3  THEN  GOSUB  3730 
:  PR  I  NT  CSC  3)) 

40  10  IF  FXC  PA ) =2  THEN  4040 
4020  I8=PA : A8=0 : GOSUB  3800:G0SUB  3910 
: C  1  =  1 : IF  PA  >3  THEN  C  1 =2 
4025  PRINT"C  SORT) 

4030  FOR  XY  = 1  TO  PEEKC  198 ) +C 1 : PR INT 
: NEXT  XY: GOSUB  3730 
:  PR  INT  SPCC  6-LEN<  L3SC  PA)  )/2)L3SC  P 
A) 

4040  NEXT  PA : PR INT*< SORT) RETURN 
4050  B9=VALC I*) 

40B0  IF  B9=ZR  THEN  NH  =NH- 1  :  FXC  SX  )  =  1 
: GOSUB  3870 : GOTO  4110 
4070  IF  B9  > 1 000  THEN  GOSUB  3510 
:RS=M1S:L1=1 : GOSUB  3770 :  WO =2 
: GOSUB  3500 :L 1=9: GOTO  4110 
4080  IF  B9>MXC  SX)AND  B9< > 1  THEN  GOSU 
B  3510:RS=M2S:L1=1 : GOSUB  3770:W0=3 
: GOSUB  3500 : L 1 =9 

4090  IF  B9  >M%C  SX ) AND  B9<  > 1  THEN  4  110 
4100  I8=SX:A8=B9: GOSUB  3800 : BXC SX ) =B9 

4110  RETURN 

4120  IF  R 1 +B9  >  1000  THEN  GOSUB  3510 
:RS=M1S:L1=1  :  GOSUB  3770:WO=2 
: GOSUB  3500 :L 1=9: GOTO  4150 
4130  IF  R 1 +B9  >MXC  SX ) THEN  GOSUB  3510 
:RS=M2S:L1=01 : GOSUB  3770:U0=2 
: GOSUB  3500 : L 1 =9 : GOTO  4150 
4140  B9=R  1  +B9  :  B’/X  SX  )  =B9  :  I8=SX:A8=B9 
: GOSUB  3800 
4150  RETURN 

4 1 SO  R$=F$(  FNRVC  FD)):PA=I1: GOSUB  3630 
:F V.(  I  1  )  =  1  :  B'y(  I  1  )  =ZR  :  NH=NH-  1 
: GOSUB  3880: RETURN 
4170  GOSUB  35  10 : GOSUB  3530 
4180  RS=" THANK  YOU  FOR  PLAY ING . " : L 1 = 1 
: GOSUB  3770 

4  190  RS="WHEN  YOU  ARE  READY, 

U1E  '  LL  BE  HERE.  "  :L  1=2:  GOSUB  3770 
:UI0=4:  GOSUB  3500 
4200  END 

4210  X=ZR :  IF  RNDC TI )<  . 35  THEN  X=1 
4220  IF  X= 1  THEN  BLXC  I  1 ) =2 

:Vmy.(  I  1  ,7)=ZR:B7=120+FNRVC  100) 

4230  IF  X=0  THEN  BLXC  I  1  )  =  1  :  VXC  I  1  ,  7  )  =2 


:VXC  11,1  )=A  y.(  11,1,0) 

:VXC  I  1  ,2)=A y.(  11,2,0) 

4240  IF  X=ZR  THEN  B7= 120+FNRVC  100 ) 
4250  RETURN 

4260  DATA  2 ,3 ,4  ,5 ,6 ,7 ,8 ,9 , 10  ,  J  ,Q  ,K  ,A 
4270  DATA  "C  SORT)*"  ,  "<  ROD)*"  ,  "C  ROD)*”  , 
"C  SORT)*" 

4280  DATA-SLIM" , “DOC" , "BART" , 

"THE  KID” ,"TEX- 

4290  DATA "STRÅ IGHT  FLUSH " ,  " FOUR "  , 
"FULL  HOUSE" , "FLUSH" , "STRÅ IGHT" , 
"THREE" 

4300  DATA  ■  TUJO  PAIR",  "PAIR  OF", 
-NOTHING- 
4310  : 

4320  DATA  "UJHAT  D  *  YA  THINK  OF  *", 

"THIS  HÅND  1 S  WORTH 
"  I 'LL  DO  IT  FOR 

4330  DATA "HOU  ABOUT  *","LET'S  TRY  *" , 
"BET  YA  DON ' T  HAVE  *" 

4340  : 

4350  DATA "I  AM  IN. ","YER  BLUFF ING.’, 

“ I 'LL  GET  YER  DOWN. ■ , 

"THAT 'S  MY  CHANCE." 

4360  DATA "NO  PROBLEM.", 

•I'LL  GO  ALONG. " , "THIS  HÅND ' S  ENO 
UGH  FOR  YOU  ALL .", "SURE . " 

4370  DATA "I  GOT  MORE  THAN  YOU . “ , 

"THAT 'S  YOUR  END . ■ 

4380  : 

4390  DATA  "BUT  I  LJANT 

"I'LL  RA ISE  YOU  TO  S", 

“I'LL  BUMP  IT  TO  *" 

4400  DATA "I'LL  HAMMER  IT  AT  , 

"  I  '  M  GONNA  BLUFF  YA  L1ITH  *" 

4410  DATA "LOOK 'S  LIKE  IT ' LL  COST  YA 
*" 

4420  : 

4430  DATA -THAT  POT ' S  TOO  SMALL  FOR  M 
E  .  "  ,  "  THESE  CARDS  STINK.'*, 

“NO  CHANCE. " 

4440  DATA  "DON 'T  UJANNA  WIN  AGAINST  Kl 
DS . " , "BYE  BYE . " , "FUCK  ME . “ 

4450  DATA "SH IT. - , "NOT  FOR  ME . " , 

"TAKE  YOUR  BLOODY  POT.*', 

"MAYBEC  CRSR  VENSTRE )E  NEXT  HÅND." 
4460  DATA "LOOK  FOR  ANOTHER  FOOL .  "  , 
"D'YA  THINK  I'M  MAD  ?“, 

"AIN'T  GOT  NOTHING." 

4470  : 

4480  FOR  PA= 1  TO  5:DWN=0 

:  IF  F'y.<  PA  )  =0  THEN  GOSUB  1870 

4490  NEXT: 

4491  GET  C*: IF  C*= " "THEN  4491 

4500  : GOSUB  8000:F0R  PA=1  TO  5:0WN=1 
:  IF  Fmy<  PA  )  =0  THEN  GOSUB  1870 
4510  NEXT: RETURN 

10000  GET  AS:  IF  AS<  >"(  F2) "THEN  10000 
10010  END 
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Ghosthunters  banden  har  fået  en 
opringning  fra  grev  Knight,  som 
plages  ganske  frygteligt  af  spøgel¬ 
ser.  Banden  har  nu  til  opgave  at 
uskadeliggøre  disse  spøgelser. 
Ghosthunters  har  tre  medlem¬ 
mer.  og  de  deltager  alle  med  livet 
som  indsats.  De  har  kun  én  lasertil 
deres  rådighed,  og  du  hjælper  dem 
med  tasterne: 

1 :  til  højre 
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2:  til  venstre,  og 
3:  skyd. 

Spillet  erselvforklarende  og  haren 
fin  grafik. 

Hvis  du  ikke  har  en  Lambda.  Ma- 
rathon  eller  Power  3000,  kan  du 
tilpasse  programmet  til  din  egen 
datamat.  I  så  fald  bør  du  være  op¬ 
mærksom  på  linierne  700. 880  og 
1220.  Minimum  RAM  er  16K. 
Søren  Frahm  og  Jesper  Tikøb 


20  PRINT  " 


l.Ui  SI  II 


30  PRINT  " 
-it  I" 

40  PRINT  " 
50  PRINT  " 

pr  n  r " 

60  PRINT  " 

i  r  n  ■. " 

70  PRINT  " 


ui  au. 


160  PRINT  "TAST  1  FOR  INSTRUKTIO 
NER" 

170  PRINT  "TAST  2  FOR  SPIL" 

ISO  INPUT  Z$ 

190  CLS 

200  IF  Z$=" 1"  THEN  GOTO  300 
210  IF  Z$="2"  THEN  GOTO  500 
220  GOTO  ISO 

300  PRINT  "DU  ER  MEDLEM  AF  GHOST 
BUSTER-  BANDEN. NOGLE  SPØGELSE 
R  ER  VED  AT  INVADERE  ET  HUS, DE 
RFOR  MAA  DU  SKYDE  SPØGELSERNE 
NED  DIN  LASER, INDEN  TIDEN  UDL 
OBER.  HVIS  TIDEN  UDLGBER  DOR  DU" 
310  PRINT  "VENSTRE  TAST  1" 

320  PRINT  "HOJRE  TAST  2" 

330  PRINT  "SKUD  TAST  5" 

340  PRIMT  "TAST  G  FOR  AT  STARTE" 
350  INPUT  X$ 

360  IF  X$="G"  THEN  GOTO  500 

370  GOTO  350 

500  CLS 

510  DIM  H(5) 

520  DIM  H$  (5,  10) 

530  FOR  A=  1  T05 
535  LET  H ( A) =5000 
540  LET  H$ C A)  =  " GHOST" 

550  NEXT  A 
560  CLS 

570  LET  SK=3500 
5 SO  LET  K=2500 
590  LET  P=0 
600  LET  S=3 
610  LET  N= 1 5 

620  PRINT  AT  21, O; "SCORE  " ; P 
630  GOSUB  1310 
640  LET  Q=I NT  <RND+24>+3 
650  POKE  164 IS, O 
660  PRINT  AT  22,  1 ; " 


670  PRINT  AT  23. l!"TID  TILBAGE  " 

6 SO  FOR  M=0  T030 

690  PRINT  AT  22, M; "  " 

700  PRINT  AT  5,Q;"?" 

705  PRINT  AT  5,Q;"  " 

710  LET  N=N+( INKEY$="2"  AND  N<27 


10  PRINT  " 
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—  (  INKEYi*" 1 "  fiND  N>  O) 


72ø 

PRINT  ftT  13, N5"  ø"n  " 

730 

IF  INKEYi="5"  THEN  GOTO  760 

735 

IF  1*1=3©  THEN  GOTO  S70 

74ø 

NEXT  i*i 

750 

GOTO  84G 

76ø 

FOR  A=1S  TOS  STEP-1 

770 

PRINT  ftT  ft, N+2 5 " .  " 

730 

PRINT  fiT  ft, M+2  !  "  " 

790 

MEXT  ft 

8øO 

IF  M+2=0  THEM  GOTO  820 

810 

GOTO  7øø 

820 

LET  ?*P+<31-f!>*10 

830 

PRINT  PT  21,05 "SCORE 

n  >  p 

840 

IF  P>  =K*2  THEM  GO^C  i 

36ø 

850 

IF  P>  =SK+2  THEN  GO'rG 

13Sø 

860 

GDTO  640 

870 

FOR  W=1  TOM 

830 

PRINT  ft"1”  13,  W!"  ?" 

890 

MEXT  W 

900 

LET  S=S-1 

91G 

FOR  ft=0  T02G 

S  2G 

PRINT  ft^  13,  M"  A"ø  " 

930 

NEXT  ft 

940 

GOSUB  1310 

950 

IF  S=0  THEM  GOTO  1400 

960 

LET  K *1*1+1  ø 

970 

-’R  I NT  ft"-  22,  \-35" 

II 

980 

GGTG  7øø 

990 

LET  P$=STft$  C NT  (P/l 

ø)  > 

løøø 

LET  Bi=" BONUS* "+D$ 

1010 

LET  C$=“ bor.us=" 

1020 

FOR  V=1  -."OLEN  Pt 

1  030 

LET  Ci=Ct+CHRi  (CODE 

Pi<V)  +  :28 

./ 

1O40 

MEXT  V 

1 050 

FOR  ft=0  TC21 

1060 

PRINT  ftT  lø, lø? Bi 

1 070 

PRINT  ftT  lø, lø; Oi 

.1.  075 

PRINT  ftT  lø,  105 " 

ii 

1  OSø 

'MEXT  ft 

1  030 

LET  ,°=P+INT  (P/10) 

1  1  øø 

PRINT  ftT  2l,ø)  "SCORE 

"5  P 

1  £  1G 

GOTO  640 

1  1  20 

IF  S=8  TKEN  GOTO  640 

i  1  30 

FOR  A=1  TO 13 

1  1  40 

PRINT  ftT  lø, S? "BONUS 

TAND" 

1  150 

PRINT  ftT  lø, 3! " bonusB 

to  and" 

1  1  55 

PRIMT  ftT  lø,S5" 

“ 

1  1 6ø 

NEXT  ft 

1  1  70 

LET  3=S+ (S  <S)  • 

1  ISO 

GOSUB  1310 

1  :i.  30 

PRINT  RT  21, 05 "SCORE 

M  .  O 

1 20ø 

GOTO  64ø 

1210 

FGR  V=1  -"ON 

1220 

PRINT  fiT  13, v;"?" 

1230 

NEXT  V 

124ø 

LET  S=S— 1 

«• 

125G  FOR  fi=0  T02G 

1260  PRIM  ftT  13,  NS"  ø"å  " 

127G  NEXT  ft 

1 2Sø  GOSUB  131G 

1230  IF  S=G  THEM  GOTO  1400 

1300  GOTO  64ø 

1310  FOR  X= 1  TGS 

1320  IF  X  <S  THEM  PRINT  ft T  2,32-X*4? 
"ø"o" 

1330  IF  X>=S  THEM  PRINT  fiT  2, 32- X *4 

•  M  II 

t 

1340  MEXT  X 
135ø  RETURN 
1360  LET  K=K*2 
1370  GOTO  990 
1330  LET  SK=SK*2 
1330  GOT G  1120 
14øø  PGKE  16415,2 
141©  CLS 

1420  PRINT  AT  10,  125  "SAME  OVER" 

143ø  FOR  B=  1  TC5 
1440  IF  P  < H C B )  THEN  GOTO  I54G 
1450  FOR  R=5  TCB+I  STEP-1 
146ø  LET  H(fi)«H(fl-l> 

1470  LET  ri$(ft)  =  -!i(ft-l) 

1430  NEXT  ft 
1430  CLS 

1500  PRIM  flT  10,  125  "HVAD  ER  DIT  M 
Pi  VM" 

1510  IMPUT  Hi <  B ) 

1520  LET  H  ( B )  =  P 
1530  LET  B=6 
1540  MEXT  B 
1550  CLS 

1560  FOR  fl=0  TC2ø 
1570  PRIMT  " 

msassasaaaM • 

1580  MEXT  ft 

1530  °RINT  ftT  i,  lø;  "  h.  ghlscore" 

160G  FGR  fi=l  TOS 
1610  LET  Bi=STRi  ft 

1620  PRIMT  ft‘r  4+fi*2, 5?CriRi  (CODE  Bi+ 
128)5".  *"  5 

1621  FGR  C=r  TQLEM  HS(A) 

1622  PRINT  CHRi  (OODE  hi  (ft,  C)  +128)  5 

1623  NEX~  C 

1624  LET  fii=SrRi  H(ft) 

1625  PRINT  ftT  4+A*2,  26-LEN  A$5 
1630  FOR  C=1  TOLEN  Ai 

1640  PRIMT  CHRi  (CODE  fiiCC) -*-12B)  ! 
1650  NEXT  C 
1660  NEXT  a 

1670  PRIMT  aT  21, 2i "ET  NYT  SPIL  (J 
/N)" 

16S0  IF  INKEYf="J"  THEN  GOTO  500 
1630  IF  IMNEY$="M"  THEN  STOP 
1700  GOTO  1630 
9933  SAVE  " GHQat " 

9939  RUN 
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Commodore  64 


Er  du  en  flittig  Kryds  &  Tværs-lø¬ 
ser.  vil  "Ordleg'  helt  klart  falde  i 
din  smag.  På  din  64'er  kan  du  ta¬ 
ste  op  til  50  ord  ind.  hvorefter 
computeren  blander  dem  godt  og 
grundigt  sammen.  Det  gælder  nu 
om  at  finde  alle  de  indskrevne  ord. 
hvilket  faktisk  godt  kan  være 
svært,  da  de  kan  være  skrevet  bå¬ 
de  forlæns,  baglæns  og  skråt. 
Hvis  du  er  den  heldige  ejer  af  en 
MPS801 -printer,  kan  du  også  få 
din  opgave  ud  på  tryk. 

Peter  Cordes 


Ordleg 


0  REM******************************* 
** 

1  REM*  ORDENE  GEMMES  PAA  ALLE  MULIGE 

* 

2  REM*  HARDER •  OPAD  ELLER  NEDAD.  PAA 

* 

3  REM*  SKRÅR ,  FORFRA  ELLER  BAGFRA... 

* 

4  REM******************************* 

** 

5  N= 1 ; 2=0 ; I =2 : W=Z : D 1 =Z ; D2=Z : P 1 =2 : P2=Z 

• P3=Z ; P4=2 : K=256 

6  DIM  W$(51 ) ,R( 15) , D(51 , N> , T$(2) , 

C$(N,> 

3  JV=5632ø : S I D-54272 

lø  FOR  1=2  TO  24 : POKE  SID+I,Z:NEXT 

11  POKE  SID+24, 15 : POKE  SID+5,3 

12  POKE  SID+18, 128= POKE  SID+15,255 

: R=SID+2? : REM  *  RANDOM  HUMMER  GEN 
ERATOR  ******* 

15  FOR  1=2  TO  15: READ  U : R( I )=U=NEXT 

I=N 

16  BATA-l,-l,-l,ø,-, 1,1,0, -l,ø, 1,1, 
-1, 1,0, 1, 1 

2ø  El$=" (GUL, CRSR  NED) ORDET  FOR  LANG 
T(CRSR  NED, LILLA) “ : E2$=" (GUL, 

CRSR  NED) ORDET  FOR  KORT (CRSR  NED, 
LILLA)'1 

25  T$(2>="  , - *" 

3ø  T$(N)="  I  SøG  ORDENE  I" 

35  T$<2)= "  ■■ - ' " 

4ø  C$(Z)=CHR$(129)+"  ( RVS  ON, 

SPACE  >-*/!*♦  I  " 

45  C$(N)="  C LILLA, RVS  OH, 

SPACE  1 1  I  . 

5ø  PRINT  CHR$ C 1 4  )  : REM*SMAA  BOGSTAVER 
**** 

55  GOSUB  13øøø: REM  ****TITEL 

56  PRINT  CHR$ ( 1 23 ) ; REM  ****ORANGE 


5?  REM****************************** 
*** 

58  REN*  INSTRUKTIONER  ************** 
*** 

53  REM****************************** 
*** 

6ø  PRINT" (CRSR  NED2, CRSR  HøJRE2)LABV 
RINTEN  GAAR  ENTEN  i  ■'AA  TV" 

65  PRINT" < CRSR  NED, CRSR  HØJRE2) ELLER 
PRINTES  UD  TIL  SENERE  BRUG." 

! PRINT" < CRSR  NED, CRSR  HøJRE2)~WA 
TV  KAN  DU  KUN  HAVE  20  ORD." 

75  PRINT" (CRSR  NED, CRSR  HøJRE2)"AA  P 
RINTER  OP  TIL  50  ORD. " 

8ø  INPUT' (CRSR  NED2, CRSR  HØJRE2) (■*)  = 
•KrtRM  -  <D=“RINTER  ";DEV* 

• DEV$=LEFT#(DEV$, 1 ) 

85  IF  DEV$0"P"AND  DEV$0"S"THEN  RUN 
3ø  IF  DEV$0"P"THEN  105 
løø  INPUT" (CRSR  NED) XI L  DU  HAVE  Lø*/ 
■t/l  OGSAA  (J/N)  " ; ANS* 
:ANS*=LEFT$(ANSf, 1) 

1 ø5  GOSUB  1 3øøø : PR I HT " ( CVAN  > " 

:  IF  DEV$<>"P" THEN  115 
llø  PRINT" (CRSR  NED4/CRSR-  HøJRE4)»KR 
IV  MELLEM  1  OG  50  ORD.  "  .'GOTO  12ø 
115  PR  I  NT  "  (  CRSR  NED4 ,  CRSR  •  Hø  JRE4  )  Vl<R 
IV  MELLEM  1  OG  20  ORD." 

12ø  PRINT' (CRSR- HED,  CRSR- HØJRE4)  IVER 
T  ORD  FRA  2  TIL  10  BOGSTAVER." 

13ø  PRINT"  (CRSR  NED  )  (  *-)  YLETTER  S I  DS 
TE  ORD." 

14ø  PRINT" (CRSR  NED)(*>  YLUT  FOR  IND 
SKRIVNING" 

15ø  PRINT  TAB(7) " (CRSR  NED5,RVS  OH, 
GUL,  SPACE )TRVK  \~U_r\_  ,\  FOR  STAR 
T  " 

16ø  K$="  ": GOSUB  16øøø 
• REM*HENT  TAST**** 
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169  REM***************************** 
*** 

17ø  REM*  ORD I NPUT  ****************** 
*** 

171  REM***************************** 
*** 

18ø  PRINT  CHRf  ( 142)  : REM****STORE  BOG 
STØVER 

19ø  PRINT" <CLR,CRSR  NED, GRØN, RVS  ON, 
SPØGE 12) SKRIV  ORDENE  NU. 

<CRSR  NED2, LILLA)" 

195  W=N 

2øø  PRINT "SKRIV  ORD  NR.  "W;  : INPUT  U$ 
21ø  Ir  U$="G"THEN  3øø 
22ø  IF  U$="*-"  THEN  W=W-N  :  GOTO  2øø 
23ø  IF  LEN (Uf) <2  THEN  PRINT  E2f 
: GOTO  2øø 

24ø  IF  LEH(U$)>lø  THEN  PRINT  EU 
: GOTO  2øø 

243  FOR  1=2  TO  W-N=IF  U$=Wf<I)THEN  G 
OSUB  12øøø-I=98 
25ø  NEXT : IF  1=99  THEN  21© 

255  D1=D1+LEN(U$) 

256  FOR  I=N  TO  W-N=IF  LEN  (Uf)  OLEN  (W 
f(I))THEN  D2=I :  1=99 

257  NEXT 

258  FOR  U=W  TO  D2  STEP-N 
:  W$(U+N)=Wf <U)  :  NEXT 

259  Wf(D2)=Uf 

260  W=W+N : I F  W>2ø  AND  DEVf="S"THEN  3 
øø 

270  IF  W<«50  THEN  2øø 
3øø  GOSUB  14000 : REM  »VENT *********** 
**** 

31ø  NO-W-N 

399  REM***************************** 
*** 

4øø  REM*  FVLD  KVADRAT  ************** 
*** 

40 1  REM***************************** 
*** 

41ø  F=FRE(ø) =REM  »RENS'*******-******* 
*** 

42ø  DIM  ANS (NO, N, N) , FO(NO) 

44ø  X=IHT(SQR(D1*2) ) : V=INT( <B1#2)/X> 
45ø  IF  LEN(Wf(N))>X  OR  LEN(W$(N)»Y 
THEN  D1=D1+N: GOTO  440 
47ø  IF  DEV$="S"AND  V>1?  THEN  V=17 
:  X=2ø 

480  DIM  G$<X,V> 

490  FOR  H=N  TO  NO=POKE  SID+N,W*5 

: GOSUB  1 Søøø : Uf =Wf (  W  > : LN=LEN (Uf) -N 
5øø  PRINT  TAB(24)"<RV8  ON, CRSR  OP, 
SPACE3, CRSR  VENSTRES >" STR$ < NO-W+ 1 > 
5 1 0  P3= I NT  < PEEK ( R  > /K*V ) +N 
: P4= I NT ( PEEK  <  R  > /K*X ) +N 
52ø  D= I NT  ( PEEK  < R  > /32 ) *2 : D 1 =R  <D ) 

••  D2=R(B+1>  :  A=2 :  U=2  =  P1=P4+D1*LN 
: P2=P3+D2*LN 

54ø  IF  P2<N  OR  P1<N  uR  P1>X  OR  P2>Y 
THEN  51ø 

550  B$=Gf<P4+Bl*U,P3+D2*U> 

;  IF  Bf =M I Bf < Uf , U+N , N ) THEN  A=A+U 
•GOTO  57ø 

56ø  IF  Bf  O"  "THEN  510 
570  U=U+N : IF  U<=LN  THEN  550 
58ø  IF  A=LN+N  THEN  51ø 
59ø  ANS  < M , 2 , 2  >  =P4 : ANS  < W , N , 2 > =P3 
:flNS(W, 2,N)=P1  •'  ANS<W,  N,N)=P2 
:D<W,2)=D1 : D(W, N)=D2 
620  FOR  1=2  TO  LN : Gf(P4+Dl#I , 


P3+D2* I )=M I Bf  < Uf , I +N , N ) : NEXT : NEXT 
69ø  GOSUB  17øøø: REM  »TID****.*#****** 
**** 

7øø  GOSUB  løøøø: REM  »ALFABETISK  SORT 
ERING 

71ø  POKE  SID+N, 90: GOSUB  ISøøø 
: REM  **#*LVD 

72ø  IF  BEVf = " 3 " THEN  5øøø 

797  REM***************************** 
*** 

798  REM*  TIL  PRINTER  *************** 
*** 

799  REM***************************** 
*** 

8øø  PRINT" (HOME, CRSR  NED2,RVS  ON, 
LILLA) "TAB( lø>"  TRVK  <P)  FOR  PR IN 
T  " 

81ø  Kf="P": GOSUB  16øøø 

82ø  PRINT" <CLR, CRSR  NED2,RVS  ON, 

GUL) "TAB<13> "PRINTER. . . " 

830  SOf=CHRf ( 14) ; BS'f=CHRf  (8) : TS=12 
: SP= ( Sø- ( X*2+4 ) ) 74 : ANS=2 
870  OPEN  1,4 -GOSUB  1 løøø : PR I NT# 1 
91ø  FOR  I=N  TO  NO : Wf ( I ) =LEFT f ( Wf  < I )  + 

"  ", lø): NEXT: 1=2 

92ø  FOR  H=N  TO  7 

93ø  I  =  I +N :  I F  I  >NO  THEN  IJf="  "  :  GOTO  960 
94ø  Uf=l-lf  ( I ) 

960  PRINTttl,  Uf;  •'  IF  KNO  AND  W<7  THEN 
PRINT# 1 , " 

97ø  NEXT  =  PRINT# 1 : IF  KNO  THEN  920 
98ø  PR  I  NT#  1 ,  CHRf  (13)  SPC  C  27  ) 

: FOR  I=N  TO  28 = PRINT#1 NEXT 
:PRINT#1 

lø6ø  PR I NT# 1, SPC (27)"  KAN  DU  FINDE "S 
TRf(NO)"  ORD" 

1160  PRINT#1 ,SPC<27>"  INDEN  FOR  ";TTf 
1170  PR I NT# 1, SPC (27): FOR  l=N  TO  28 
: PRINT#1 , ; : NEXT 
1175  IF  ANSf=" J"THEN  ANS-N 

: PR I NT# 1 , CHRf ( 1 ø ) : GOSUB  11030 
118ø  PR I NT# 1 : GLOSE  1 : PRINT" (CLRV'CHR 
f( 14): GOTO  543ø 

4997  REM**************************** 
*** 

4998  REM*  PAA  TV  ******************* 
*** 

4999  REM**************************** 

$4 

5øøø  PRINT  CHRf (14): GOSUB  ISøøø 
5øø2  PRINT" (CRSR  NED, CRSR  HØJRE2, 
GRØN) I  RUG  CURSOR-TASTERNE  ELLER  J 
GYSTIK  2." 

5ølø  PRINT" (CRSR  NED, CRSR  HøJRE2)-l, 
-23,-5,  IOME:  •  URSOR  I  KANTERNE." 
5øll  PRINT  "(CRSR  NED,  CRSR  HøJRE2)-,IN 
B. ET  ORD,  PLACER  CURSOR  PAA  START 

5013  PRINT" (CRSR  NED, CRSR  HøJRE2)B0G 
STAV,  TRVK  _-n_“  ELLER  -7,  GAA  TIL" 
5015  PRINT" (CRSR  NED, CRSR  HøJRE2)SID 
3TE  BOGSTAV, TRVK  ELLER  -7." 

5019  PRINT" (CRSR  NED, CRSR  HøJRE2)*VA 
RES  RIGTIGT  VIL  ORDET  BLIVE  GULT" 

5020  PRINT" (CRSR  NED, CRSR  HøJRE2)0G 
NEGATIVT  OG  FJERNES  FRA  ORDLISTEN 

II 

5025  PRINT"  (CRSR  NED, CRSR  H8JRE2X*) 
FOR  AFSLUTNING  HVIS  DU  OPGIVER." 
5028  PRINT  TAB (7)" (CRSR  NED2,RVS  ON, 
LILLA, SPACE) I  RYK  MELLEMRUM  TIL  ST 
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5029  K$="  "  GOSUB  16000:  REM  HENT  TAST 
5035  30$=CHR*(ø)  B*=CHRf (0)  =  T3=4 
:SP=I  N’i  <  (  24  -  (  X+2  )  >  /2 ) :  ANS=Z :  A=Z 
:SC=Z 

5040  GOSUB  15000= REM  *PRIHT  PAR  TV** 
**** 

5045  TI #="000000" 

5ø5ø  PRINT" (HOME/ CRSR  NED6) "SPC(SP+N 
); 

5ø9ø  BEL=Z ■ RV=128 

5 1 øø  U=PEEK ( 2 1 1 ) +PEEK ( 209 ) +PEEK ( 2 1 ø ) 
*256 

5 j.  1  ø  POKE  U/PEEK(U)+RV 
512ø  J=PEEK( JV) : GET  K* 

■  IF  K#0" "OR  J-127  THEN  52øø 
5130  DEL=BEL+N: IF  BEL=lø  THEN  RV=-RV 
; DEL=Z : GOTO  51 lø 
5 HØ  GOTO  512ø 
52øø  POKE  U/PEEK(U)AND  127 
: VP= I HT <<U-1 ø24)/4ø) 

: XP=U- ( 1 024+40*VP ) 

5202  P 1 =N- ( J  AND  N)-P2=2-(J  AND  2) 
:P3*4-<J  AND  4):P4«8-<J  AND  3) 

5205  IF(K*="(CRSR  VENSTRE) "OR  P3)AND 
XP>8P+N  THEN  PRINT" < CRSR  VENSTRE 

5210  IF(K$="(CRSR  HØJRE)" OR  P4/AND  X 
PCSP+X  THEN  PRINT" (CRSR  HØJRE)";' 
5220  IF(K#=" (CRSR  HED) "OR  P2)AND  VP< 
5+V  THEN  PRINT" (CRSR  HED)"; 

523ø  IF(K#=" (CRSR  OP)" OR  PI) AND  VP>6 
THEN  PRINT" (CRSR  OP)"; 

5231  IF  Kf=CHR* (133) THEN  PRINT" HOME/ 
CRSR  NEDS ) " SPC ( SP+X ) ; 

5232  IF  K*-CHR$( 134) THEN  PR I NT "(HOME/ 
CRSR  NEDS)"; : FOR  I=N  TO  V 

•  PRINT" (CRSR  NED)"; :NEXT 
= PRINT  SPC(SP+N) ; 

5233  IF  K$=CHR$( 135) THEN  PRINT" (HOME/ 
CRSR  NEDS)"; : FOR  I=N  TO  V 

: PRINT" (CRSR  NED)"; : NEXT 
: PRINT  SPC (SP+X); 

5240  IF  K#=" (HOME) "THEN  5ø5ø 
5250  IF  K$="fl"THEN  ANS=N: GOSUB  15øøø 
:  PR  I  NT  "  ( SORT ..  CRSR  OP  )  "  :  END 
5255  IF  Kf-OCHR# ( 136) AND  JOlll  THEN 
5090 

526ø  IF  A=N  THEN  5290 
5270  D 1  =U+54272  •'  POKE  D 1  /  7  :  D2=XP-SP 
: SV-VP-5 : A=N : GOTO  5090 
529ø  FOR  I=N  TO  NO 
53øø  IF  ANS(I/Z/Z)OD2  THEN  5320 
5310  IF  ANS(I/N/Z)=SV  AND  ANS(I/Z, 

N )  =XP-SP  AND  ANSd/H/ 

N ) =VP-5  THEN  ANS= I 
532ø  NEXT 

5330  A=Z : IF  ANS=Z  OR  FO( ANS) THEN  POK 
E  Dl.- 2: GOTO  5ø5ø 
5340  FOR  I=N  TO  LEN(H#(AHS) )-N 
: D 1 =D 1 + ( 4ø*D ( ANS / 1 ) ) 

: Dl*Dl+D(ANS/ø) 

5345  POKE  S I D+ 1 / I* 1 ø : GOSUB  ISøøØ 
: POKE  Dl/ 7 -NEXT  I 
535ø  PR I NT " C HOME / HV ID)" ; 

;FOR  I=N  TO  ANS+N: PRINT" (CRSR  HED 
)"; : NEXT 

5355  PRINT  SPC (29) ;: FOR  I=N  TO  LENCN 
#(ANS)) : PRINT"*" ;: NEXT 
5360  FO ( ANS ) =N : SC=SC+N 
dF  SCONO  THEN  5ø5ø 
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5362  T*=T I#' IF  VAL ( T# ) X VAL ( S# )  + 1 øø* 
VAL (M*)) THEN  5364 

5363  C=Z : FOR  I=Z  TO  255  STEP  4 

: POKE  SID+N/ I : GOSUB  ISøøØ: NEXT 
:GOTO  5365 

5364  C=N : FOR  1=64  TO  Z  STEP-N 

: POKE  S I D+N / 1 : GOSUB  1 8øøG  =  NEXT 

5365  M$=M I D# ( T# / 3 / 2 ) + " M .  " 

: S#=R I GHT # ( T# / 2 ) + "  SEK. " :SP#="" 

5366  IF  VAL(M#XN  THEN  M$="" 

■ SP$=" 

5370  PRINT  CHR$( 14) -GOSUB  13000 
538©  PRINT" (GRØN/ CRSR  NED2)~N  GOD  TI 
D  FOR  DETTE  VAR: (CRSR  NED)" 

: PRINT  "(CRSR  VENSTRE) "TT# 

5390  PRINT" (CRSR  NED)~U  VAR  "M#S$"  O 
M  AT  AFSLUTTE. (CRSR  NED4) " 

54øø  IF  C=Z  THEN  5415 

5415  PRINT  TAB(13)LEFT$(C-#(C)/2); 

: FOR  I=N  TO  LEN(C$(C) )-2 = PRINT" 
'•NEXT 

542ø  PRINT: PRINT  TAB(11)C#(C) 

5425  PRINT  TftB( 13)LEFT$(C#(C) / 2); 

: POR  I=N  TO  LEN(C#(C))-2: PRINT" 

:  NEXT 

543©  PR I NT -PR I NT  TAB(9)"(CRSR  NED3/ 
GUL /R VS  ON/ SPACE >“N  GANG  TIL  (  W 
)  ?<RVS  ON)"; 

5435  POKE  19/ N:  INPUT  K$:POKE  19..  Z 
5440  IF  K#0"N"THEN  RUN 

5450  PRINT" (CLR)"CHR#( 142) "(CRSR  NED 
3/RVS  OFF)SE/  SE/  MAN  ER  EN  DAARL 
I G  TABER/  SE/  SE" 

5451  PRINT "(CRSR  NEB2)NAA, 

MEN  HA'  EN  GO'  DAG/  OG  KOM  IGEN" 

5452  PRINT" (CRSR  NED2)HAAR  BIORVTMER 
NE  ER  MERE  TIL  DIN  FORDEL" 

5453  PRINT" (CRSR  NEDS/ CRSR  HøJRE4/ 
SPACE )BVE-BVE  *  TUTTE-LI-TU" :END 

9997  REM************* 

9998  REM*  SORTERING  * 

9999  REN************* 
løøøø  IF  NO=N  THEN  RETURN 

løølø  D 1 =2 1( I NT ( LOG ( NO-N ) /LOG ( 2 ) ) +N) 
10020  Dl=Dl/2 

10030  P3=N0-D1 :  P2-Z :  IF  DKN  THEN  RET 
URN 

10040  P 1 =P2 
løøSø  P4=P1+D1 

10055  IF  H#(P1 )>W$(P4)THEN  løøSø 
10060  P2=P2+N : IF  P2>P3  THEN  løø2ø 
10070  GOTO  løø4ø 
1 øøSø  U#=Wi (PI) :H$(P1) =W$ ( P4 ) 

■ W$(P4)=U# 

10090  FOR  I=Z  TO  N : F OR  N=Z  TO  N 
10100  U=ANS(P1/ I/W) :ANS(P1/  1/ 

W ) =ANS ( P4 / 1 / H ) =  ANS ( P4 / 1 / W ) =U : NEXT 
løllø  U=D(F 1 / I > : D(P1 / I )=D(P4/ I) 

: D(P4/ I )=U : NEXT 

10120  P1=P1-D1 :  IF  PKZ  THEN  10060 
10130  GOTO  10050 
10990  REM  PRINT  SQUARE 

10997  REM*************************** 
*** 

10998  REM*  KVADRAT  ***************** 
*** 

1 0999  REM*************************** 

1 1 øøø  PR I NT# 1 , SOfSPC ( TS ) T# ( 0 ) BS# 
llølø  PR  I NT# 1 / SGtSPC ( TS ) T$ ( 1 ) BS# 
11028  PR I NT# 1 / SGSSPC  C  TS ) T# ( 2 ) 

1 1 030  PR I NT# 1 / CHR# ( 1 3 ) SGSSPC  C SP ) 
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GAMES 


ZX81 


på  I  Kl 


^PULS/f, 

•f 


ft  -  v*  *  .v  -* 


Hvad  skal  man  med  en  Amiga  med 
256  K  eller  en  Atari  med  512.  når 
alletiders  klassiker  -  ZX81  -  kan 
holde  et  helt  Pacman-spil  på  kun 
een  Kl 

Jo,  den  er  god  nok.  Her  er  'den 
med  osten'  på  en  ganske,  alminde¬ 
lig  uudvidet  ZX81  computer.  Pro¬ 
grammet  indeholder  en  komplet 
labyrint  med  15x16  felter.  6  ud¬ 
gange.  to  spøgelser,  energipiller 
og  alt  det  andet,  der  hører  sig  til  i 
et  ægte  klassisk  Pacman. 

Har  du  1 6  K  udvidelse  i  din  81  'er. 
skal  du  hive  den  ud.  Ellers  virker 
spillet  ikke. 

Du  styrer  din  'ost'  med  piletaster¬ 
ne,  undtagen  mod  venstre.  Her 
bruges  9  istedet  for  5.  Tryk  SHIFT 
for  et  nyt  spil  og  husk.  at  spillets 
hastighed  iøvrigt  stiger  hele  tiden  I 
Programmet  er  i  100%  maskinko¬ 
de  og  fylder  502  bytes.  Derfor  skal 
det  lagres  i  en  REM-sætning  på 
502  tegn.  Denne  REM-sætning 
danner  du  lettest  ved  at  indtaste 
en  REM  med  45  tegn  i  linje  10:10 
REM 

01 2345678901 234567890123- 
456789012345678901 234 
Denne  linje  EDIT'erer  du  så  og  æn¬ 
drer  linienummeret,  så  den  står 
kopieret  på  linjerne  10-19.  hver 
med  de  samme  45  tegn. 

I  linje  19  (og  kun  i  linje  19)  fjerne 
du  to  tegn  fra  linjen,  før  du  indlæ¬ 
ser  den  (så  kan  der  er  43  tegn  efter 
REM). 


Bemærk:  Der  kan  være  problemer 
med  at  EDIT'ere  efter  linie  17  - 
hvis  du  lige  skriver  CLS  inden  du 
trykker  EDIT.  ordner  det  sig.Nu 
skriver  du  så: 

POKE  16511.248 
POKE  16512.  1 

Dette  får  computeren  til  at  opfat¬ 
te  alt.  hvad  du  harskrevet  i  linje  1 0 
til  19  som  een  linje.  Tryk  IKKE 
LIST.  heller  ikke  selvom  du  er  nys¬ 
gerrig!! 

Indtast  herefter  program  1  og  SA¬ 
VE  det  for  en  sikkerheds  skyld.  Nu 
kommer  vi  så  til  det  rigtigt  sjove: 
Skriv  RUN  og  indtast  tallene  i  ud- 
listningen.  et  efter  et.  Det  tager 
tid.  Og  vær  meget  forsigtig  og  nøj¬ 
agtig  hele  tiden.  Det  er  maskinko¬ 
de.  så  bare  et  eneste  forkert  tal  og 
crash.  maskinen  går  ned. 

Når  du  er  færdig  med  at  indtaste 
tallene,  så  skriv: 

20  SAVE  'PACMAN' 

30  RAND  USR  16760 

40 

50 

60 

SAVE  'OKPAC" 

RUN 

-så  har  du  en  kopi  afspillet  på  bånd 
("OKPAC').  hvis  det  ikke  skulle 
være  rigtigt  indtastet. 

Når  du  skriver  RUN  (ovenfor)  gem¬ 
mer  maskinkoden  en  kopi  af  spil¬ 
let  ('PACMAN').  der  automatisk 
starter,  når  den  loades. 


DECIMAL  LISTNING: 

THE  REAL  PAC  MAN  IN  MACHINE  CODE 
S******************************* 

2SS,2S5.,  128 , 32 , 4-3 , 14-1, 169,4-1, 173 
,  107, 16S,  1, 130,84-  ,4-3,215,  232,  17, 
139,213,  150,21, 173,  SS,  4-5, 109, 129 
,  1 , 255 , 255 ,56,4-0,52 , 55 , 42 , 14- ,  23  . 
23 , 23 , 23 , 23,28, 120 . 0 , 234-  ,68,1.27 
,  139, 16,67,2,27,  139, 1,0, 1,205,24. 
5,3,33, 130-  ,  64-  ,  14-  ,  30 , 6 , 9 , 126 , 24-5  , 
5, 4.0 , 15,203 , 127,32,7 , 62,27,215 , 2 
4-1, 23, 24-,  24-1 .62 . 128,24-  ,24-7,24-1,  1 
3,4ø, 10,233,65,32,3,62, 113,2 15 , 3 
5 , 24 , 220 ,42,12,64,1,66,0,9,54,23 
, 1 , 166 .0.9,54.23. 253 ,54,60. 120 . 2 
31,17,72,64,14,5, 237 ,176,42, 72  ).  6 

4 . 53.75. 64 . 254. 40. 32 . 16.53.61.64 
, 254 ,0,32,7,113,42, 123, 64 ,195, 10 
7, 66 ,62,0,119,56,52, 64 , 230 ,3,79, 
55 , 74 , 64 , 169 , 254 ,3,40, 242 ,121,1, 
17.0. 254 ,0,32,1,43. 254 ,1,32,1,9, 
254 .2,32 .2,237, 66 , 234 ,3,32,1,35. 
87 . 126,254 , 126 ,40,184,254. 139 . 40 
, 6 , 254 ,11,40,2,24,2,62,27,50,75, 

64 . 122 . 50 . 74 . 64 . 125 . 254  . 119,52,3 
, 122 , 24 , 199 , SS , 76 , 64 , 119, 34 , 72,6 

4.33.72.64. 14.5.201.62.221.253. 1 
93,6, 200 ,1,0,0, 205 , 245 ,8,17, 160 , 
64, 1, 12,0,205, 107, 11,205, 1S4 .64, 

42 . 12 . 64 . 14 . 106 .9.34. 174 . 64 . 14 . 1 
3,9,34, 179 , 64 ,14.33.9,34, 123 , 64 , 
3.3, 172 , 64, 17 , 60,64 , 14 , 12 , 267 , 176 
, 33 , 62 , 64,205 ,251,64, 17, 62 , 64 , 23 
7, 176,56,60,64,254,0,204, 164,64, 
53 ,61,64, 254 ,0,40,7, 253 ,53,61,62 
, 11,24,2,62, 139,50,66,64,50,71,6 
4,1,0,15,11, 120 , 177, 32, 25 1 , 33 , 57 
,64,205,251,64, 17,67, 64,237, 176, 
42, 123 , 64 , 14,17,54,0,56,36, 64,25 

4 . 223. 32.1.9. 254 .239 . 32.2.237. 65 
,  254 , 247 , 32 . 1-,  35 , 254 ,251,32,1, 43 
. 1 -c . 254 . 123 , 32 . 3 , 42 , 123 , 64 , 34 , 1 
23754 . 229 . 125 . 254 .0.43,33. 254 , il 
3 . 32 . 3 . 225 , 24 . 203 , 254 , 133 , 40 , 75 . 
254, 11, 32 , 27 , 237 ,91,62,64, 237 , 52 
,40,5, 17, 67,64,24,3, 17,62.64 .33 . 

173 . 64 . 237 . 160 . 237 . 160 . 6 . 20 .24.1 

7 . 254 .23.32.8. 253 .54.61.30.6.5.2 
4,5, 253 ,53,60,6,1,42,12.64.17.11 
,0,25, 126 , 60 , 254 ,38,32,5,54,28,4 
3,24,245, 119, 16,235,225,54,40, 19 

5 . 169 . 55 . 54 . 163 . 225 . 53 . 33 . 64 . 254 
, 254 , 32 , 249 , 195 ,114,65, 

MASKINKODEN  SKAL  LAGRES  I  EN  REM 
3 RETNING  KR A  ADRESSE  15514  TIL 
17015 
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I~LJQI  1  -~11^ 

Commodore  64 

Drømmetydning 


Engang  var  der  en  mand,  som  hed 
Sigmund  Freud.  Han  mente  og 
kunne  tildels  bevise,  at  vore  drøm¬ 
me  genspejler  vores  inderste  følel¬ 
ser.  De  følelser  fandt  han  så  frem 
til  ved  at  analysere  og  fortolke  dis¬ 
se  drømme. 

Der  var  blot  een  ting  -  drømmene 
kunne  normalt  ikke  huskes  mor¬ 
genen  derpå.  Men  nu  til  vor  tids 
vidundermiddel.  computeren. 
Denne  maskine  vil  efter  endt  ind¬ 
tastning  af  dette  program  være  i 
stand  til  at  hjælpe  med  at  genop¬ 
friske  sidste  nats  hede  drømme. 
For  at  den  kan  gøre  dette,  må  man 
stille  den  spørgsmål,  den  så  vil  be¬ 
svare.  Og.  mine  damer  og  herrer, 
den  svarer  ærligtl  Testredaktio¬ 
nen  fik  ikke  så  meget  som  bare  een 
enkelt  modsigelse  ud  af  den! 
Spørgsmålene  skal  dog  opfylde  et 
kriterium:  De  skal  kunne  besvares 
direkte  med  enten  et  Ja  eller  et 
Nej.  Er  dette  krav  opfyldt,  kan  De 
se  frem  til  utroligt  realistiske  svar 
fra  Commodoren. 

Christian  Ravndal  Jensen 


10  O  I M  B<  100) I POKE  3328 1,11 
IPOKE  53280 ,11 
20  PRINT  "<  HVID, CLR, CRSR  NE03, 

SPACE  14 )  , - ,  ■ 

30  PRINT  •  IOROMME  64  1’ 

40  PRINT  ■  * - »■ 

50  PRINT  "<  CRSR  NE02 , SPACE  19 )ET" 

i  PR  I  NT  "C  CRSR  NE0,SPACEI3)0R0MME- 
PROGRAM" 

SO  PRINT  "C  CRSR  NE02  , SPACE  1 9  )  AF  • 

SPRINT  "C  CRSR  NED , SPACE  15 >CHR.  85 
/86" 

70  PRINT  "C  CRSR  NE02 , SPACE  10 >EFTER  O 
RG.  PROGRAM  AF" 

80  PRINT  "(CRSR  NED  ,  SPACE  1 4  )  T .  P .  G .  /M 
IKRO" 

90  POKE  1 98 ,0  s  WA I T  198,1 
100  PRINT  "<CLR,CRSR  NED, 

SPACE2) COMPUTEREN  VIL  NU  FREM8RIN 
G  ET  BILLEDE" 

1 10  PRINT  *  AF  DIN  HJERhC  , 

SOM  DEN  SAA  UO  DA  DU 
120  PRINT  "  SOV.  LUK  OJNENE  OG  SLAP 
HELT  AF ,  MENS 

130  PRINT  "  PROGRAMMET  INDKODER  DIN 
AURA.  " 

140  PRINT  "(CRSR  rED2  , 

SPACE )TRYK  EN  TAST  FOR  INDKODING." 
150  POKE  1S8 ,0  s  UJA  IT  198,1 
160  PRINT  "<  CLR )  " 

170  FOR  X-0  TO  500 

180  POKE  53281,1  s POKE  33281,11 

190  NEXT  X 


200  PRINT  "C  CLR, CRSR  NED, 

SPACE2 1C0MPUTEREN  HAR  NU  REGISTRE 
RET  DIN  OROM" 

210  PRINT  "  FRA  SIDSTE  NAT.  DIN  VAAG 
NE  HJERNE  KEN-  ■ 

220  PRINT  "  DER  INTET  TIL  DENNE  DROM 
.  OU  SKAL  NU 

230  PRINT  •  FINDE  FREM  TIL  DEN  VEO  E 
N  OEL  SPORGS-  • 

240  PRINT  "  MAAL,  SOM  KAN  BESVARES  M 
ED  JA  ELLR  NEJ" 

230  PRINT  ■<  CRSR  NED , SPACE ISTOP  MED 
’f  .  " 

260  PRINT  "(CRSR  NED2 , 

SPACE) TRYK  EN  TAST  NAAR  DU  ER  KLA 
R" 

270  POKE  198 ,0  s  UJA  IT  198,1 
280  FOR  X-S5  TO  93 
290  A- INTC  RNOC  1  >*10>-H 
300  BCXl-A 

310  NEXT  X  s  B<  32  )  *8C  78  > 

320  PRINT  "C  CLR )  " 

330  ZS* " " i  INPUT  "<  CRSR  NED, SORT, 
SPACE)  "IZSIPRINT  "CHVI0>" 
i IF  Z*."t*  THEN  END 
340  IF  LENC  Z*)<2  THEN  PRINT  “<  CRSR  O 
P4 ) " i  GOTO  330 

350  IF  LEFTSCZS,2)«"HV"  THEN  PRINT  • 
DET  VED  JEG  IKKE" IGOTO  330 
360  BaB*-l 

370  X*ASCCMIDSCZS,LENCZS)-I,1>) 

380  IF  X< 65  ANO  X<  >32  THEN  ZS-LEFTSC 
ZS, LENC  ZS1-1  >  IGOTO  370 
390  IF  X  >93  THEN  ZS-LEFTSC  Z*, 

LENC  Z*>-1>  IGOTO  370 


400  BS-MID*CZS,LENCZS>-1,1) 

4  10  ON  BCASCCBS))  GOSUB  480,300,310, 
320,330,550,560,570,380,390 
420  GOTO  330 
430  R-INTCRNOC  0>»10>»1 
440  IF  R<  4  THEN  PRINT  "JA,  MAASKE" 

430  IF  R  >3  AND  R< 8  THEN  PRINT  "DET  K 
AN  MAN  SIGE" 

460  IF  R  >7  THEN  PRINT  "IKKE  UMULIGT" 

470  RETURN 

480  PRINT'NEJ,  "J 

490  IF  8 >23  THEN  PRINT  "ER  DER  IKKE 
NOGET  DU  HAR  GLEMT  7" i B-0 sRETURN 
300  PRINT  "ABSOLUT  IKKE  "i RETURN 

510  PRINT  "NATURLIGVIS  IKKE " I  RETURN 
520  PRINT  "IKKE  SAAOAN  " i  RETURN 

530  IF  LEFTSC  ZS,7)-"VAR  JEG"  THEN  PR 
INT  "NEJ,  OU  VAR  IKKE") i GOSUB  620 
i RETURN 

340  IF  LEFTSC  ZS, 7)«"VAR  DET"  THEN  PR 
INT  "NEJ,  DET  VAR  IKKE"):GOSUB  620 
i RETURN 

550  PRINT  "JA" 1RETURN 
560  PRINT  "DET  KAN  MAN  GODT  SIGE" 
i RETURN 

570  PRINT  "KORREKT" IRETURN 
580  PRINT  "DET  ER  MULIGT" IRETURN 
390  IF  LEFTSC  ZS,7>-  "VAR  JEG"  THEN  PR 
INT  "  JA,  DU  VAR " ) I GOSUB  620 
IRETURN 

600  IF  LEFTSC  Z S , 7 ) * "VAR  DET"  THEN  PR 
INT  “  JA,  DET  VAR") i GOSUB  620 
IRETURN 
610  GOTO  430 

620  PRINT  RIGHTSC  ZS, LENC  ZS)-7>  IRETURN 
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GAMES 


)>0  AND  VAL<A*)<3  THEN  J=OAL<A*> 

150  LOCATE  11,2*J+10: PRINT" >" 

160  IF  INKEY (IS) =0  THEN  170  ELSE  140 

170  IF  J=1  THEN  VX=74:HX=75:0X=72:NX=73  ELSE  V7.=8: 

HX=1:0X=0:NX=2 

180  'TEGN  BANE 

190  CLS:RX=240:CX=0:T=128:0N  BANE  GOSUB  530,570,61 
0,650,700,740,780, 820 s  READ  N* ,  X 7. ,  Y7. ,  M X 7. ,  M Y7. ,  1*17. ,  N 1 7. 
,NA7.,UX7.,UY7. 

200  PEN  2: FOR  Z=2  TO  23:L0CATE  1,Z:PRINT  CHR*<250) 
s LOCATE  40, Z:  PRINT  CHR* (250) : NEXT 

210  LOCATE  1,1: PRINT  STRING* <40, CHR* <250) ): LOCATE 
1,24: PRINT  STRING* <40, CHR* <250) )  : PEN  1 : LOCATE  21- 
INT (LEN (N*) /2) , 1 : PRINT  N* 

220  PEN  3: LOCATE  8,24:PRINT  "Hi ghscore"hi < 1 ) "af  "h 
i  #  <  1 ) 

230  PEN  1: LOCATE  1 , 25: PRINT"LIV"1 "  BANE "BANE"  POIN 
T"ac: LOCATE  28, 25: PRINT"TID  "STRING* <8, 143) 

240  FOR  Z=1  TO  3:  READ  SX7.  < Z )  ,  SY7.  < Z )  ,  MI7.  < Z )  ,  MA7.  < Z )  , 

S7.(Z)  :  NEXT:  PEN  1 :  FOR  Z=1  TO  4:  READ  KXX(Z)  , KY%(Z>  :L 

OCATE  KXX<Z>  ,KY7.(Z>  :  PRINT  CHR*  <251 ):  NEXT 

250  PEN  2: READ  D,E,F:IF  D=0  AND  E=0  THEN  260  ELSE 

LOCATE  D,E: PRINT  STRING* (F, CHR* (250) ): GOTO  250 

260  READ  D, E, F: IF  D=0  AND  E=0  THEN  270  ELSE  FOR  Z= 

E  TO  F: LOCATE  D,Z:PRINT  CHR* (250) : NEXT: GOTO  260 

270  IF  M0=1  THEN  PEN  li LOCATE  7, 24: PRINT"  *  TRYK  < 

SPACE >  FOR  MENU  *  GOTO  360 

280  El: GOSUB  1440 

290  ’  SPILLET 

300  AX-XX:BX=YX:XX=XX+< INKEY <VX>=0  AND  X7.>2)-<INKE 
Y<HX>=0  AND  X7.<39)  :  YX-YX+ < INKEY <0X> -O  AND  Y7.>3)-(I 
NKEY  <NX>  =0  AND  YX<23) 

310  IF  TEST<X7.*16-8,414-(Y7.*16)  )  =2  OR  TEST  <X7.»  16-8 
,430-<YX*16) )=2  THEN  X7.=A7.:  Y7.=B7. 

320  IF  XX<AX  THEN  RX=240 
330  IF  X7.>A7.  THEN  R7.=242 
340  IF  INKEY  <38>=0  THEN  GX=-GX 

350  PEN  1:  LOCATE  A7.,  B7.-1 :  PRINT  "  “:  LOCATE  A7.,B7.:PR 
INT"  " :  LOCATE  XX,  Y7.-1 :  PRINT  CHR*  <R7.)  :  LOCATE  XX, YX: 
PRINT  CHR* (RX+l ) 

360  PEN  1 1  FOR  Z-l  TO  4: IF  ABS <KYX < Z ) -YX) <2  AND  ABS 
(KXX (Z) —XX) <2  THEN  460 

370  NEXT : IF  ABS < XX-UXX) <2  AND  ABS < YX-UYX) <2  AND  CX 
=5  THEN  DI: GOTO  500 

380  CALL  &BD19: FOR  Z=1  TO  3:L0CATE  SXX < Z > , SYX < Z > -1 
: PRINT"  ": LOCATE  SXX ( Z ), SYX < Z ): PRINT"  " : SXX <Z> -SXX 
< Z  >  +SX  < Z  > i IF  SXX  < Z ) »MAX ( Z )  OR  SXX <Z> -MIX(Z>  THEN  S 
X<Z>—  SX(Z) 

390  LOCATE  SXX < Z >, SYX < Z ) -1 : PRINT  CHR* (248) : LOCATE 
SXX<Z) ,SYX<Z) iPRINT  CHR*<249):IF  ABS < XX-SXX < Z) ) <2 
AND  ABS ( YX— SYX ( Z ) ) <2  THEN  870 

400  NEXT i NYX-MYX s MYX-MYX+MX: LOCATE  MXX, NYX-1 : PRINT 
"  "iLOCATE  MXX,  NYX:  PRINT"  ":IF  MYX.=NIX  OR  MYX-NA 
X  THEN  MX— MX 

410  PEN  3: LOCATE  MXX, MYX-1 : PRINT  CHR* (244) CHR« <245 
): LOCATE  MXX, MYX: PRINT  CHR* (246) CHR* <247) : IF  ABS ( Y 
X-MYXX2  THEN  IF  XX-MXX  OR  XX=MXX+1  THEN  870 
420  T =T— 0 . 25 : PLOT  T+496 , 16: DRAW  T+496,0,0:IF  T=0  T 
HEN  870 

430  IF  M0“0  THEN  300 
440  GOTO  960 

450  ’  FJERN  NOEGLE 

460  SC-SC+ 100: LOCATE  21,25:PRINT  SC:LOCATE  KXX(Z), 

KYX(Z)  iPRINT . KXX  <  Z )  =— 1 :  KYX  ( Z  >  *=— 1 :  SQUND  1,30,  15, 

15,0, 1 : CX-CX+1 : 

470  IF  CX«4  THEN  LOCATE  UXX, UYX: CX=5: PEN  1: PAPER  3 
: PRINT  CHR* (203) : PAPER  OlSOUND  1,0,50,15,0,0,1 
480  GOTO  380 

490  ’  NY  BANE 

500  SOUND  135, O, 20: BANE=BANE+1 : FOR  Z=T  TO  1  STEP  - 
1:SC=SC+1 O: LOCATE  22,25:PRINT  SCiPLOT  Z+496,16:DRA 
W  Z+496, O, O: SOUND  1 , Z* 10, 5, 15, O, 3: NEXT: FOR  Z=1  TO 
1000: NEXT 

510  IF  bane=9  THEN  1150  ELSE  190 
520  '  BANERNES  DATA 

530  RESTORE  550: SYMBOL  244, 2, 7, 4, 7, 6, 3, 31 , 63: SYMBO 
L  245,37,245,  149, 247,  50, 226,  250,  254  .-SYMBOL  246,63, 
119, 103,7,7,7, 15, 14: SYMBOL  247,254,247,243,242,114 
,114, 122,58 

540  SYMBOL  248,30,60,126,90,126,60,126, 255 1  SYMBOL 
249,255,255,255,255, 126, 124, 62, 31 1  SYMBOL  250,238,0 
, 119,0,238,0, 119,0: INK  2,6:INK  3,9:RETURN 


550  DATA  NIGHTMARE, 2, 23, 21, 18, 1,3,20,2,23, 11,8,3, 1 
9,2,30, 12,24,36,-2, 16,20,4,38,-2,3, 19,5,3,38,2,26, 
15 

560  DATA  2,21,9,14,21,14,31,21,9,4,18,17,23,18,15, 
2, 15, 19,24, 13, 11,4, 11, 17,23,8, 15,2,6, 16,23,4,  18,0, 
0,0,20,2, 11,37,8, 18,23, 12, 18,0,0,0 

570  RESTORE  590: SYMBOL  244,0,127,255,255,228,4,31, 
62: SYMBOL  245, O, 254, 255, 255, 39, 32, 248, 1 24: SYMBOL  2 
46, 121,231,222,231,249, 126, 63, 31 : SYMBOL  247, 158,23 
1,123,231, 159, 126,252,248 

580  SYMBOL  248, 62, 62, O, 127, 42, 62, 28, 127: SYMBOL  249 
,127,119,127,119, 127,62,54, 119: SYMBOL  250,60,66, 15 
3, 161, 161, 153,66,60: INK  2,3: INK  3,15:RETURN 
590  DATA  THE  OFFICE,  2, 3, 19, 12, -1 , 6, 1 8, 39, 2, 20, 3, 2, 
38,-2, 10, 16,6,36,2,9,23,3,39,2,39,9,39,  13,12,14,2, 
21 

600  DATA  5,4,11,18,4,8,28,4,10,8,7,11,21,7,14,5,10 
,  14,21, 10, 19,8, 13, 11,21, 13, 14,5, 17, 14,21, 17,6,29, 1 
7,9,2,20,11, 15,20,15,32,20,6,0,0,0,5,4,17,18,4,7,3 
7,4,20,0,0,0 

610  RESTORE  630: SYMBOL  244, 3, 15, 13, 15, 7, 2, 31 , 63: SY 
MBOL  245, 192,240, 176, 240, 224, 64, 248, 252: SYMBOL  246 
, 127, 119, 103, 119,55,7, 1 4 , 30;„SYMBQL ,247, 254, ?38, 230 
,238,236,224, 112, 120 

620  SYMBOL  248, O, 1 70, O, 145, 1 45, 74 , 74, O: SYMBOL  249, 
56, 102,207, 157, 185,243, 102,56:SYMB0L  250,255,0,24, 
24,0,255: INK  2,9: INK  3,6:RETURN 

630  DATA  MONKEY  KONG, 2, 13, 37, 13, -1 , 3, 23, 26, 9, 20, 23 
,2,38,-2,26,4,2,38,2,34, 13,6,36,-2,39,3,39, 12,39,2 
2,27,16 

640  DATA  4,5,18,24,5,6,32,5,5,7,10,15,24,10,13,7,1 
5,15,24,15,13,4,20, 18,24,20,6,32,20,5,0,0,0,4,5,20 
,24,5,9,24, 15,20,39,5, 10,39, 15,20,0,0,0 
650  RESTORE  680: SYMBOL  244, 3, 7, 13, 15, 14, 15, 23, 27: S 
YMBOL  245, 192,224, 176,240, 112, 240, 232, 216: SYMBOL  2 
46,29,30,23, 15, 1 1 , 7, 5, 7: SYMBOL  247, 184, 120,248,240 
,240,224,224,224 

660  SYMBOL  248, O, O, 28, 44, 28, 220, 72, 126: SYMBOL  249, 
26,27,24, 120,72,72,79, 193:SYMB0L  250,254,0, 127,0,2 
54,0, 127: INK  2, 12: INK  3,11 

670  PEN  2: FOR  Z=4  TO  23: LOCATE  24-Z.Z: PRINT  CHR* <2 
50) CHR* (250) : LOCATE  Z+16.Z: PRINT  CHR* <250) CHR* <250 
) : NEXT: RETURN 

680  DATA  TUT-ANK-AM0N,6,23,20,8, 1,7, 16,9, 18,20,20, 
8,22,-2,21,16, 11,23,-2,27,20,25,33,2,22, 18, 19,8,25 
,18,34,19 

690  DATA  15,11,5,15,14,5,22,14,5,9,17,9,20,17,5,27 
, 18,5,8,21,26,0,0,0,22, 10, 14,26, 14, 18,24, 17,21,0,0 
,0 

700  RESTORE  720:SYMB0L  244,0,63,32,45,41,45,32,63: 
SYMBOL  245,0,252,4, 180, 164, 52, 4, 252: SYMBOL  246,63, 
O, 127,85, 106,85, 127: SYMBOL  247,252, 16,254,82, 178,9 
4,254 

710  SYMBOL  248,60, 137, 16, 189,0, 189,36, 189: SYMBOL  2 
49,  36, 189, O, 189, 36, 165, 36, 189: SYMBOL  250, 254, 130, 1 
30, 130, 130, 130,254: INK  2, 10: INK  3, 9: RETURN 
720  DATA  COMPUTER  ROOM, 3, 3, 38, 15, -1 , 4, 21 , 18, 7, 14, 3 
,4, 38, -2, 18, 12,4,38,-2,26,23,4,38,-2, 13,  14,25,  15,3 
6, 14,39,2 

730  DATA  2,5,6,10,5,12,24,4,14,21,7,14,5,9,17,24,1 
0,14,2,13,11,18,13,20,4,16,12,2,20,11,15,20,14,31, 
20,7,0,0,0,21,5,9,37,4, 10, 15, 13,20,21,13, 17,28, 13, 
20,37, 13,20,0,0,0 

740  RESTORE  760: SYMBOL  244, 1 , 3, 3, 3, 7, 15, 31 , 63: SYMB 
OL  245, 192,224,208, 160, 128, 224, O, 252: SYMBOL  246,63 
,63,62,63, 123,241,224, 192:SYMB0L  247,244,0,0,0, 128 
, 192,224,224 

750  SYMBOL  248, O, 30, 52, 126, 240, 224 , 224, 1 12: SYMBOL 
249, 124,30,7, 131,131,199, 126, 60: SYMBOL  250, 255, 255 
, 129,255,255, 129,255,255: INK  2,7: INK  3, 9: RETURN 
760  DATA  DR  DRACULA, 39, 13, 18, 15, -1 , 3, 23, 38, 13, 16, 4 
,4, 36, -2, 16,23,4,36,2,34, 13,4,36,2,5,7,36,7,5, 18,3 
6,17 

770  DATA  7,5,11,20,5,18,4,10,14,20,10,15,4,15,14,2 
O, 15,5,27, 15,11,4,20, 14,20,20, 18,0,0,0,4,5, 10, 17,5 
, 10,37,5,20,4, 15,20, 17, 15, 17,20,15,20,0,0,0 
780  RESTORE  800: SYMBOL  244,31,63,49,49,53,49,31,14 
: SYMBOL  245,248,252, 140, 172, 140, 140,248, 112: SYMBOL 
246,30, 127,202, 154, 178, 166, 164, 164: SYMBOL  247, 120 
,254,83,89,77, 101,37,37 

790  SYMBOL  248, 4, 30, 59, 127, 247, 240, 1 20, 124: SYMBOL 
249,62,31, 15, 199, 135,207, 126, 60: SYMBOL  250,141,227 
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GAMES 


Race 


Wrrom!  Der  ersand  på  banen  foran 
dig.  Din  lille  gule  racer  gasser  op. 
men  pas  på!  Du  skal  nemlig  kom¬ 
me  helskindet  igennem  banen... 
Styr  med  det  indbyggede  joystick 
og  bestem  selv  antal  kurver  og  ve¬ 
jens  bredde  inden  du  starter.  -Prøv 
f.eks.  at  starte  med  1 5  kurver  og 
en  vejbredde  på  300. 

Jens  Peter  Winkler 


PROGRAM  "RACE"  _ _ 

!  jens  peter  winkler 

RANDOMIZE 

CLEAR  FONT 

ENVELOPE  NUMBER  1 5 1 , -34, -34, 1 ; -1 , 64, 64, 4; 2, -34, -34, 2 
SET  CHARACTER  159,0,28,62,62,28,28,54,62,62 
SET  CHARACTER  152,45,85,170,85,170,45,85,170,85 
TEXT 

SET  KEY  CLICK  OFF 

INPUT  PROMPT  "Hvor  bred  skal  banen  v*re  (max  338)  - : SV 
INPUT  PROMPT  "Hvor  mange  kn*k  skal  der  v*re  på  banen  u : KK 
NUMERIC  TEG  < 1  TO  KK) 

LET  LL=ABS (6060/KK) :LET  FF=ABS (KK/2) 

CALL  VIDEO 
DEF  VIDEO 

SET  VIDEO  MODE  5 
SET  VIDEO  COLOUR  1 
SET  VIDEO  Y  171 
SET  VIDEO  X  25 
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860  FOR  C=ll  TO  171  STEP  1 
870  DISPLAY  #10l:AT  1  FROM  C-10  TO  C 

880  NEXT 

890  PING 

900  FOR  V=171  TO  11  STEP-. 5 

910  DISPLAY  *»101 :  AT  1  FROM  V-10  TO  V 

920  NEXT 

930  END  DEF 

940  DEF  SLUT 

950  SET  KEY  DELAY  30 

960  PRINT  "Du  kørte  på  en  bane,  der  var  "  SV  "  bred." 

970  PRINT  "Og  der  var  "  KK  "  knæk  på  den" 

980  PRINT  "Vil  du  se  spillet  igen(j/n)*» 

990  INPUT  A* 

1000  IF  UCASE*(A*)="J"  THEN  CALL  SCROOL 

1010  IF  UCASE*(A*)="N"  THEN  GOTO  1040 

1020  IF  A*<>"J"  AND  A*<>"n"  THEN  980 

1030  ! 

1040  PRINT  "Vil  du  prøve  igen  (j/n)"; 

1050  INPUT  S* 

1060  IF  S*="j"  OR  S*="J“  THEN 
1070  PRINT  "1)  PA  den  gamle  bane" 

1080  PRINT 

1090  PRINT  "2)  PA  en  ny  bane" 

1100  INPUT  NM* 

1110  LET  PL=VAL(NM*) 

1120  SELECT  CASE  PL 

1130  CASE  1 

1140  TEXT  : CALL  VIDEO: GOTO  570 

1150  DISPLAY  #10l:AT  1  FROM  1  TO  10:G0T0  570 

1160  CASE  2 

1170  RUN 

1180  CASE  ELSE 

1190  GOTO  1040 

1200  END  SELECT 

1210  ELSE 

1220  GOTO  1250 

1230  END  IF 

1240  END  DEF 

1250  END 

1260  DEF  SAMMENSTOOD 

1270  SOUND  PITCH  1, DURATION  7 , ENVELOPE  1 

1280  SOUND  PITCH  3, DURATION  7, ENVELOPE  l.SOURCE  3 

1290  OUT  133, 23: OUT  133,45 

1300  LET  HH=HH+ 1 

1310  IF  HH >=5  THEN 

1320  SET  INK  2:PL0T  RR-64 , A-32 : PRINT  #101 : CHR* < 152 > 5 CHR* < 1 52 ) ; CHR* < 1 52 ) 

1330  PRINT  "Din  bil  brød  sammen" 

1340  CALL  SLUT 

1350  ELSE 

1360  SOUND  PITCH  12, DURATION  4,S0URCE  1 

1370  END  IF 

1380  END  DEF 

1390  DEF  KLARET 

1400  SET  INK  3 

1410  PLOT  30 , 6 1 00 : PR I NT  #101:"  TILYKKE  DU  KLAREDE  BANEN" 

1420  END  DEF 
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Spectrum 

Due!!, 

'  i 


V\  • 


Kig  to  gange  på  det  her  program! 
Det  er  nemlig  bedst,  når  man  erto, 
der  spiller.  Så  find  din  ven  (eller 
veninde),  og  hiv  din  Spectrum  ind  i 
stikket.  'Duel"  er  ganske  simpelt: 
Vinderen  er  den.  der  fylder  den  an¬ 
den  med  bly. 

Den  ene  spiller  bruger  Kempston- 
joystick.  den  anden  cursortaster- 
ne  samt  nul.  som  er  'giv  ild-tas¬ 
ten'. 

Her  er  et  rapt  lille  spil.  hvis  to¬ 
mands  kamp  er  noget.dder  fanger 
dig. 

Thomas  Duelund 

1?  8lst0  9000 

12  LET  S  1=0 

13  LET  S2=0 
14-  LET  y  =2 

15  LET  X  =26 

16  LET  q»19 

17  LET  w  =3 

16  LET  Fi="*" 

19  LET  G«="*" 

30  DIM  Ri  (20 . 30) 

35  LET  Rt  ti) 


-TT 

45 

LET 

LET 

A, 

rr 

5ø| 

fET 

RK4 

55 

LET 

Ri  (5 

60 

LET 

Ri(6 

70 

LET 

R»  ej 

75 

LET 

Ri  <q 

80 

LET 

Ri  is 

85 

LET 

fli(i 

90 

LET 

RKi 

95 

Aa 

LET 

Rid 

^0 

LET 

Rid 

105 

LET 

Rid 

110 

LET 

Rid 

115 

LET 

Rid 

120 

LET 

Rid 

125 

LET 

Ri  d 

J30 

LET 

Rtd 

1434  F8R  n  =28  To  1  STEP  -1 
1085  PRINT  RT  n,l;  INK  4;flilr>) 
1090  NEXT  n 

1110  PRINT  BO;”  *  C  O  U  B  O  Y 
-DUEL  *  " 

1120  PRINT  RT  0,2; "SPILLER  2:"; i 
2jRT  0,19;  "SPILLER  l:";sl 
1130  PRINT  RT  0,0;  INK  5;"*";RT 
0,31;  INK  l ;'*" 

2000  IF  IN  31=1  TMEN  GO  SUB  3000 
:  GO  TO  2025 

2005  IF  IN  31=2  THEN  GO  SUB  3100 
:  GO  TO  2025 

2010  IF  IN  31=8  TMEN  GO  SUB  3200 
:  GO  TO  2025 

2015  IF  IN  31=4  TMEN  GO  SUB  3300 
:  GO  TO  2025 

2020  IF  IN  31=16  TMEN  GO  SUB  380 

2025  IF  INKEYi="S"  TMEN  GO  SUB  3 
400:  GO  TO  2050 

2030  IF  INKEYi«"5"  TMEN  GO  SUB  3 
500:  GO  TO  2050 


500:  GO  TO  2050 

2035  IF  INKEY i="7"  TMEN  GO  SUB  3 
600:  GO  TO  2050 

2040  IF  INKEYi="6"  TMEN  GO  SUB  3 
700:  GO  TO  2050 

2045  IF  INKEY*="ø"  TMEN  GO  SUB  3 
900 

2050  PRINT  RT  q,w;  INK  5; G* 

2055  PRINT  RT  u,x;  INK  1;F* 

2099  GO  TO  2000 
3000  PRINT  RT  y  , X ; "  " 

3005  LET  Fi«"*'1 

3010  IF  Rt  iy  ,X  ti)  ="  “  TMEN  LET  X 
=X  + 1 

3099  RETURN 


3100  PRINT  RT  y ,X; 
3105  LET  Fi  =  "*'’ 
3110  IF  Riiy,X-l>  = 
=X  -1 

3199  RETURN 

3200  PRINT  RT  y ,x; 
3210  IF  R$(y-l,X)  = 

3^99  RETURN 
3300  PRINT  RT  y,X; 


TMEN  LET  X 


TMEN  LET  y 


'// 


3315  IF  Ri  (y  +  l,X)  ="  "  THEN  LET  y 
«y  +  1 

3399  RETURN 

3400  PRINT  RT  q,WJ"  " 

3405  LET  Gi."*'1 

3410  IF  fit*q,«d>="  "  TMEN  LET  u 
•  t*  +1 

3499  RETURN 

3500  PRINT  RT  <»,«;"  " 

3505  LET  Gi*"*1' 

3610  IF  filiq,«-!) ■”  "  THEN  LET  W 

3599  RETURN 

3600  PRINT  RT  q,w;”  " 

3610  IF  Rt<q-1,*>="  "  TMEN  LET  q 

3^99  RETURN 

3700  PRINT  RT  q,w;"  " 

3710  IF  Ri (qtl.B) ■  "  TMEN  LET  q 

■  q  +  1 

3799  RETURN 

3800  IF  Fi="*"  THEN  GO  SU8  4000 
3810  IF  Fi."*"  THEN  GO  SUB  4100 

3899  RETURN  . 

3900  IF  Gi="*"  THEN  GO  SUB  4200 
3910  IF  Gi«"*"  TMEN  GO  SUB  4300 

3999  RETURN 

4000  PRINT  RT  y,X;  INK  ljFtiflT  q 
,y;  INK  5; Gi 

4010  IF  Ri (y , X  +  1) ="  "  TMEN  BEEP 
.009,9:  GO  TO  4020 
4015  GO  TO  2000 

4020  FOR  1=1  TO  30:  IF  fii(y,X  +  U 
="  "  TMEN  GO  TO  4025 

4021  GO  TO  2000 

4025  PRINT  RT  V,X  +  t; . :  FOR  a  =0 

TO  1:  NEXT  a:  PRINT  RT  y,X  +  i;" 
":  GO  SUB  4050:  NEXT  t 
4060  IF  y=q  RND  X+t=w  TMEN  PRINT 
RT  q,«;1!'7:  LET  Sl=Sltl:  PRINT 
RT  11, 11; nDU  FIK  HRM" :  GO  TO  406 
0 

4055  RETURN 

4060  PRINT  RT  0,2; "SPILLER  2:"; S 
2;  RT  0,19;  "SPILLER  l:";sl 
4070  IF  S  1=3  THEN  GO  TO  7000 
4080  FOR  3=0  TO  100:  NEXT  a 

4099  CLS  :  GO  TO  14 

4100  PRINT  RT  y,x;  INK  1 ; F i ; RT  q 
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CHflLLGNGE 


1020  LET  h  =  1 4  -  GO  SUB  2000 

1025  L£T  h=92:  GO  SUB  2000 

1030  PRINT  OT  21,2;"j";0T  21 , 10  ;  "a" ;AT 

1, 17j"j"  ;AT  21 , 25 ;  "o " ;AT  2l,3øj"d" 

1040  PLOT  10,  15 
1045  DRAW  240,0 
1050  REN  ssj  led  i  agram 
1055  IF  k ua l g  =2  THEN  GO  TO  1121 
FOR  q=20  TO  255  STEP  10 
PLOT  q+u, 15 
READ  f 

DRAW  ø, f/t  i  Ip 
NEXT  q 

REN  kurued i agr am 
IF  kua l g  =3  THEN  GO  TO  1190 
GO  SUB  6000 
RESTORE  t 

FOR  q=lø  TO  244  STEP  10 
READ  f 

LET  f  =  C  f/t  i  l p  0 
PLOT  q+u,u+15 


1080 

1090 

1100 

1110 

1120 

1121 

1125 

1128 

1130 

1135 

1140 

1145 

1150 

1155 

1160 

1165 

1190 

1205 

1210 

t 

1220 

1222 

1225 

1228 


DRAW  10,  f-u 
LET  u= { 

NEXT  q 
GO  SUB  2500 
LET  aar  =t 
INPUT  "Nenu 


=  0  -  Nyt  ur?  skr  i  u 


LET  b=b  +  l 
IF  t=ø  THEN  GO 
IF  b>2  THEN  GO 
LET  retur=1200 


TO  100 
TO  990 


1230 

IF  t  <1983  OR  t > 1 985  THEN 

GO  TO  650 

2530 

FOR  q=]  TO  24 

0 

2535 

READ  h 

1245 

IF  t  =  1 983  THEN 

RESTORE 

1983 

2540 

LET  total 

=tota l+h 

1250 

IF  t=1984  THEN 

RESTORE 

1984 

2545 

NEXT  q 

1252 

IF  t  =  1 985  THEN 

RESTORE 

1985 

2548 

LET  u$=STR$  total 

1260 

LET  u=u+1.5:  GO 

TO  1050 

2550 

PRINT  AT 

0+b , 20 

l-LEN  u$;total 

15øø 

STOP 

i  " 

it 

1501 

GO  SUB  6øøø 

2560 

RETURN 

1505 

READ  f 

6000 

REN  startkuruet 

i  Ipasn 

i  ng 

1507 

LET  f  =  Cf/t i  lp) 

6010 

IF  aar=0 

THEN 

GO  TO 

6100 

1510 

PLOT  q+u , u+ 1 5 

6012 

IF  t>aar 

THEN 

RESTORE  Ct-1) 

1520 

DRAUi  10,  f-u 

6015 

I F  t  <aar 

THEN 

GO  TO 

6100 

1525 

LET  u=f 

6017 

IF  t=aar 

THEN 

GO  TO 

61øø 

1530 

NEXT  q 

6020 

FOR  q=l  TO  24 

1600 

RETURN 

6030 

READ  u 

19øø 

REN  forbrugsoplysningerne  **  l 

6040 

NEXT  q 

i n i enummer  =  urstal 

6050 

LET  u=u/t 

i  lp 

1983 

DATA  525,653,647 

',681,600 

,500,450,31 

6070 

RETURN 

0,272, 199,92,67,20,20 

1,70,72,  158,  170,250, 

6100 

REN  kurue 

i  neutr a l 

pos. 

370,480,630,720,750 

6110 

RESTORE  t 

1984  DATA  974,836,950,800,900,450,250,12 
5,20,0,35,85, 120,270,410,508,593,611,630 
,714,728,751,740,793 

1985  DATA  875,800,810,744,700,669,611,62 
4,587,403, 145,20, 18,22,22,34,345,456,516 
, 578, 647,708,788,827 


1999  STOP 

2000  FOR  q=20 
2010  PLOT  q , h 
2020  DRAW  10,0 
2030  NEXT  q 
2040  REN  RETURN 
2200  REN  mdr . i ndde l i ng 
2210  FOR  q  =  1 0  TO  255  STEP 
2220  PLOT  q , 2 

2230  DRAW  0,10 
2240  NEXT  q 
2250  RETURN 
2290  STOP 
2500  REN  ursforbr. 

2510  LET  total =0 
2515  RESTORE  t 


KW/h 
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6120  READ  v 
6130  LET  v=v/t  i  lp 
6150  RETURN 

6500  REN  f e j Itastn  ingsprocdure 
6510  PRINT  fll  ;  BRIGHT  1 j "  fejltastning 
prsu  igen" 

6520  PAUSE  120 
6525  LET  b  =b - 1 
6530  GO  TO  retur 
2000  REN  vejledning 

7010  PRINT  J "Du  skal  skrive  dit  forbrug 
C24  tal  pr.  ur  1  ind  i  en  DATAsr tn  i n9med 
samme  linienr.  som  uret.” 

7020  PRINT  '"Tallene  tilpasses  ved  at  rn 
dre  i  linie  140" 

7030  PRINT  '"Enheden  CKUJ/h,l,  m-'33skal  r 
ndres i  linierne  1010  og  2550" 

7035  PRINT  '"Hvis  du  bruger  andre  urstal 
end  1983,1984,1385  skal  du  tilfsje  dis 
se  i  linie  1230" 


7037  PRINT  "Du  skal  endvidere  tilfsje  en 
linie  efter  linie  1252  mage  til, men 
med  det  aktuelle  urstal" 

7050  PRINT  fll;"f1enu  -  tryk  pu  en  tast" 
7090  PAUSE  0 
7095  GO  TO  100 

8900  REN  indspilning  kassette 

8910  CLS  :  PRINT  HUSK  AT  TAGE  ’EA 

R’-STIKKET  UD" 

8920  SAUE  "forbrug"  LINE  1:  CLS  :  PRINT 
"Husk  UERIFT  tryk  pu  en  tast  nur  du  er  k 
lar":  PRINT  ’’  j"Du  har  husket  at  srtte  ’ 
EAR’-  st ikket  i  ?" :  PAUSE  0 
8930  UERIFY  "forbrug":  CLS  :  PRINT  "ALT 
OK" 

8940  PAUSE  300 
8950  GO  TO  100 

9000  ERASE  "m"  ;  1  forbrug"  :  SAUE  *"m"Jl; 
"forbrug"  LINE  1=  UERIFY  * "m" J i  j  "  f or br u g 
":  PRINT  "alt  OK":  PAUSE  00:  GO  TO  100 
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Livet  er  ikke 
men  også  færdig 


Alle  får  en  tekstbehandling.  Et  regneark  til  at  beregne  økonomien 
med.  Eller  en  database,  hvor  telefonnumre  og  pladekartoteket  er 
samlet. 

"Alt  om  Data”  sætter  hver  måned  fokus  på  seriøs  software  til  alle 
datamater.  Fra  Commodore  64,  Amstrad  og  Commodore  til  PC’er 
og  Apple. 

Farverige  reportager  fra  vores  korrespondenter  verden  over  sørger 
for  mange  timers  spændende  læsning. 

Og  så  er  "Alt  om  Data"  i  øvrigt  kendt  for  sine  dybgående  og  kriti¬ 
ske  tests  af  de  nye  computere  og  tilbehøret  til  dem.  Her  får  du 
købsvejledning,  så  det  batter. 

Det  er  ikke  for  ingenting,  at  vi  er  Danmarks  største  computer¬ 
blad  . . . 

"Alt  om  Data”  ligger  i  din  kiosk  hver  måned.  Prisen  er  kun  kr.  26,85.  Abonne¬ 
ment  kan  tegnes  på  tlf.:  01  91  28  33. 


CHRLLENGE 


Commodore 


Verdens  titler 


Et  lille  simpelt,  men  nyttigt  pro¬ 
gram. 

Indtast  tiden  i  Danmark,  og  du  får 
tiden  i  15  andre  storbyer.  Pro¬ 
grammet  kan  let  udvides,  f.eks. 
hvis  daddy  tager  til  Xirtram(Lang- 
bortistan)  og  du  ikke  kan  finde  by¬ 
en  i  programmet. 

Henrik  Jørgensen 


I 

n 


Ih 


7j 


0  DIM  HOCISVPOKE  53280,6  Sj 
:P0KE  53281,8 

1  PRINT" <CLR>" :8f="  " 

2  GØSLIP  t  øø 

3  GOTO  3øø 

5  H0=5 

6  Sf="  " 

7  IF  Hø<i)+U=24  THEN  H0<l>»ø-U 

8  P*1 :  IF  H0(l)+U>9  THEN  Sf=""  :  Yf=TI$ 

9  PRINT" (HOME, CRSR  NED6>" 

: PR I NT "DANSK  TID:  S«; 

HQ<P>+U; " < CRSR  VENSTRE) 

: " :MTDf<V* .3,2); " : ";RTGHT$<Yf,2> 
lø  IF  R I GHTf ( Vf , 2  >  =  " 58 "OR  RIGHTfCVf, 
2) ="øø "THEN  Sf="  " : GOTO  12 

11  GOTO  7 

12  FOR  P-2  TO  16 

13  Yf-TIf 

1 4  Uf-LEFTf < V# , 2 > : U=VAL  < Uf  > 

15  IF  H0<P)+U*24  THEN  HOCP)=ø-U 

16  V=VAL(V$> 

17  JF  H0(P)+U>9  THFN  Sf="" 

2ø  PR I NT " < CRSR  HØJRE 1 8 > " ; Sf ; HO C  P ) +U ; 
" <CRSR  VENSTRE) : " ; MIDfCYf, 3,2) 

•  ØJ—  II  II 

4ø  NEXT  P 
5ø  GOTO  7 
løø  PRINT" <CLR>" 

llø  INPUT  "INDTAST  DANSK  TID  (XXXXXX 
)  " ;  Af 

115  O-VAL  ( Af  > : I F  0>235959  OR  00999 
THEN  løø 

120  Bf=LEFTf (Af ,2) : A=VAL(£f> 

1 30  C$=R I GHTf  <  Af , 4 ) : T I f = " øø " +Cf 
2øø  FOR  P=1  Tu  16 


21ø  READ  HO<P) : HO<P)=HO<P)+A 
22ø  NEXT  P 

230  DATA  ø,23, 19, 16,2,7,8, 11,22, 1, IS, 
21,4,2,11,13 
24ø  FOR  F-l  TO  16 
25ø  IF  HOC P ><24  THEN  270 
26ø  HO  <  P ) =HQ (  P  > -24 
27ø  NEXT  P 
280  RETURN 
3øø  REM  . 

31ø  PRINT" CCLR, CRSR  HøJREl 4) VERDENS 
URET" 

311  PRINT"  (CRSR  HøJREl 4) - " 

312  PRINT" (CRSR  HøJREl 4 )COPVRIGHT  BV" 

313  PRINT" CCPSR  NED, CRSR  HØJRES) JØRN 
FALK  &  HENRIK  JØRGENSEN C CRSR  NED 

3)" 

350  PR I NT" LONDON : " 

360  PR I NT "HEN  YORK:" 

37ø  PR I NT "LOS  ANOELES:" 

38ø  PR  I  NT  "MOSKVA:." 

39ø  PR I HT "PEKING : " 

4øø  PR  I  NT  "TOKYO  •'  " 

41ø  PR I NT " WELL I NOT ON : " 

42ø  PR I NT "SAO  PAULO:" 

430  PRINT"NAIROBI : " 

44ø  PR I NT "MEXICO : " 

450  PRINT"GODTHAAB : " 

46ø  PR I HT "DELHI : " 

470  PR I NT" TEHERAN : " 

43ø  PR I NT "AN ADYR: “ 

499  PRINT "FRI RB ANKS- " 

495  PRINT" (HOME, CRSR  NED?)" 

500  GOTO  12 
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DET  TYKKE  TILBUD: 


Arets 

båndtilbud  er 


S-T-O-RT 


-  og  koster  baæ  148  små! 

”TAST”båndet  l - 

indeholder  samtlige  programmer  til  C64  og  C128  fra  det  nye 

nummer  af  ’TAST!” 

Alle  er  gennemcheckede  for  fejl  og  har  fået  høje  karakterer  hos 

programredaktionen. 

Har  du  diskettestation,  kan  du  få  programmerne  på  disk  istedet  for  på 

bånd.  Og  det  koster  slet  ikke  ekstra! 

Bare  udfyld  kuponen  . . . 


Slip  for  at  taste  C64- 
programmeme  ind  . . . 

Få  dem  færdigt  på  bånd! 

Jeg  har:  Indsat  kr.  148?  på  giro  9  40  60  77 
Vedlagt  en  check  på  kr.  148? 

Navn: _ 

Adresse: _ 


SEND  KUPONEN  IDAG! 


Ønskes  på  C64  bånd  □  -  C64  disk  □ 


Sendes  til:  TAST  Båndtilbud 
St.  Kongensgade  72 
1264  København  K. 


□  □ 


dybden 


køber 

Hi-Fi 


Stcir  du  for  at  købe  Hi-Fi  er  det  vigtigere 
end  nogensinde,  at  du  er  velorienteret. 
Hi-Fi-markedet  er  mere  broget  og  varie- 
re^nd  tidligere,  og  du  har  som  aldrig 
en  hjælpende  hånd. 


bogen  mere  over- 
jngelig  end  tidligere  års 


udgaver. 


samtlige  oplysninger 

giver  d'p  en  bedrÅnulighed  for 

at  sammenligne  deanange  produkter  - 

rnefc  É#X?pn,TordeltM 


P°  320  sider. 
Samtidig  fårvfu  en  grundig  information 
om  de  forskellige  typer  produkter, 
skrevet  af  nogle  af  landets  dygtigste 
eksperter. 

Enten  du  står  for  at  skulle  købe  Hi-Fi  lige 
nu,  eller  måske  blot  overvejer  at  gøre 
det,  er  Hi-Fi  Arbogen  lige  uundværlig 
både  som  inspiration  og  vejledning. . 
Bogen  kan  købes  i  landets  kiosker  og 
udvalgte  boglader  fra  den  28.  novem¬ 
ber  1986  oq  koster  kr.  107,50. 


Du  kan  også  benytte  girokortet  her 
i  bladet  og  spare  kr.  10,00. 


